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ABSTRACT 


Shipboard electrical distribution systems are changing significantly with the intro- 
duction of solid state frequency converters, introduction of electric propulsion and integrated 
electric drive, and the possibility in the future of large combat systems pulsed loads. Existing 
computer tools for analyzing power systems have difficulty simulating these changing con- 
ditions. To assist in the evaluation and analysis of future shipboard electrical distribution 
systems, the Shipboard Electrical Plant SImulation Program (SEPSIP) was developed. 


The key feature of SEPSIP is its use of implicitly defined input variables and implicit 
variables which allow for every element of the simulation to be mathematically isolated from 
every other element. When the constitutive laws of an element are satisfied by an appropriate 
set of input variables, all of the implicit variables have zero value. The network description 
generates the input variables based on the network topology and the results of a Newton- 
Raphson iterative scheme. The key advantage to this method is that the network description 
of a node closely models an actual electrical node. 


To demonstrate the abilities of SEPSIP, several simulations involving synchronous 
generators, induction motors, and voltage regulator dynamics were conducted. In all simu- 
lations, SEPSIP provided results that matched data generated by other simulation methods. 
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CHAPTER 1 
INTRODUCTION 
1.1 Thesis Objectives 


Shipboard electrical power systems in the U.S. Navy are experiencing a number of 


significant changes. These changes include : 


- Solid state frequency converters replacing motor generator sets 

- The use of switched DC power supplies by many loads 

- Centralized and automated power system control 

- More frequent use of electronic motor controllers 

- Sensitive electronic equipment requiring high quality 60 Hz. power. 

- Electric propulsion 

- Large combat systems pulse loads. 

Considering the tremendous expense involved with constructing a modern warship, it is 
necessary to ensure that the incorporation of these changes into the design of the shipboard 
electrical generation and distribution system can be successfully accomplished with no 
degradation in the combat capability of the ship. Unfortunately, these changes, along with 
the small size of the shipboard generation system make the use of many classical methods 
of analyzing power systems inappropriate. A good analysis requires the recognition of the 
following properties of the shipboard system: 

- The small number of generators (typically only one or two) with the associated small 
amount of rotational inertia invalidates any assumption of an 'infinite bus' operating at a 
constant frequency. 

- The dynamics of the generator voltage regulators and speed governors have time 
constants of an order that are important in the study of most disturbances. 


- The dynamics of paralleled generators are coupled through the communication of load 
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sharing and bus voltage information. 

- Solid state frequency converters and switched power supplies have non-sinusoidal 
current characteristics. 

- Solid state controllers often greatly modify or even substitute their own dynamics for 
the dynamics of the motor they are controlling. The controllers may also have non-sinusoidal 
current characteristics. 

- High power pulsed loads for advanced combat systems may become a reality in the 
near future and deserve study. 

- Integrated Electric Drive where propulsion motors and ship’s service power are taken 
from the same distribution system can result in large transients from speed changes in the 
propulsion system propagating to all of the other loads on the ship. 

The purpose of this thesis 1s to present the theory and design methodology used in the 
development of a computer simulation tool (SEPSIP : Shipboard Electrical Plant SImulation 
Program) for analyzing both the steady-state and transient behavior of shipboard electrical 
power distribution systems. 


1.2 Modelling Shipboard Electrical Power Systems 


Electrical Power systems are not unlike any other electrical network in that they are 
composed of electrical elements and the topological network connecting the elements. Each 
of the elements is defined by a number of constitutive equations that relate the voltages and 
currents of its own terminals. The network on the other hand, is defined by relating the 
voltages and terminals of different elements through Kirchhoff’s voltage and current laws. 


1.2.1 Elements : Constitutive Equations 


The constitutive equations describing an element can be very complicated. In ship- 
board electrical power systems, the equations can take on the form of nonlinear differential 
equations or even discontinuous functions. Additionally, elements such as generators and 


motors require the mechanical subsystem be described in detail. Other elements, such as 
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switches and circuit breakers, are defined by equations depending on the current state ofthe 
element. Allofthese factors contribute to make shipboard electrical power systems difficult 
to simulate numerically. 


1.2.2 Networks : Nodal Equations 


The nodal equations are the mathematical expression of Kirchhoff's voltage and 
current laws that define the network topology. Kirchhoff's current law states that the sum 
of the currents entering a node must equal the sum ofthe currents leaving a node. Kirchhoff's 
voltage law states that the voltage at any node is identical for every element attached to it.’ 
In themselves, the mathematical representation of Kirchhoff’s laws are very simple. 
However, the resulting system of nonlinear equations is often stiff which implies that the 
eigenvalues of a linearization of the set of nonlinear equations fall in a range spanning 
several orders of magnitude. 

Stiff systems can be solved numerically, but they require special care. The choice of 
time increments, integration methods, and simulation time are all affected by how stiff a 
system is. If a particular differential equation 1s known to have a very fast time constant, 
one can ignore the dynamics and always use the final value forthe variable. If used properly, 
the Euler Backward method for integrating differential equations approaches the same 
solution. Fast modes can also be eliminated by a host of other model reduction techniques. 
[9] [10] [19] [28] [31] In any case, a tool designed to analyze shipboard systems must 


incorporate a method for dealing with stiff systems. 


] An expression of Kirchhoff's Voltage Law that may be more familiar is: The sum of the 
voltage drops across the elements of a closed loop is equal to zero. The two definitions are 
not exactly identical but are consistent with one another when one accepts the concept of a 
voltage being a potential value. 
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1.3 Power System Analysis Computer Tools 
1.3.1 Desired Features 


In light of the characteristics and potential problems associated with modelling 
shipboardelectrical systems, acomputer analysistool should have the following capabilities: 

* Ability to solve systems of nonlinear differential equations. 

* Ability to handle changing network topologies due to the actions of switches and 

circuit breakers. 
* Ability to handle discontinuous functions. 
* Ability to organize the input data into a form that is recognizable as an electrical 
network. 

* Ability to easily add or subtract elements from the network description. 

* Ability to model mechanical subsystems. 

* Ability to solve stiff systems. 

The requirements on a simulation program that these features impose are not trivial. 
In fact, the author is unaware of any commercially available software package that incor- 
porate all of the listed capabilities. The software that is available can be split into two 
categories: Programs used for analyzing commercial power utilities, and software packages 
for solving systems of nonlinear equations. 
1.3.2 Simulation Programs for Land Based Power Utilities 

There are a number of computer programs which can solve different aspects of the 
power system analysis problem. However none of these programs are optimized for ana- 
lyzing shipboard systems. Here is a brief summary of several existing programs: 


1.3.2.1 EMTP 


The Electromagnetic Transients Program (EMTP) [22] 1s a large-scale network 
simulation program originally developed by the Bonneville Power Association in the 


1960's. It is capable of modeling traveling waves on transmission lines, lumped linear 
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elements, the saturation of transformers and reactors, the dynamics of synchronous 
machines as well as other elements of a power network. EMTP handles stiff systems by 
using the Euler Backward method for integration. In general, the program 1s optimized 
for studying the interaction between the dynamics of a number of generators and the 
dynamics of the interconnecting transmission lines. The dynamics of the loads are not 
considered important. Unfortunately, the dynamics of loads are important in shipboard 
systems. Furthermore, EMTP was written in FORTRAN for batch processing and 1s not 
very easy to use interactively. 


1.3.2.2 POSSIM 


The POwer System SIMulator (POSSIM) [19] is a fifty machine transient stability 
program developed by the General Electric Company. POSSIM uses the results of a 
network load flow program (LOFYR: LOad Flow and Y-matrix Reduction) as a starting 
point for a multi-machine simulation. The program allows for dynamics only in the 
generators and their associated governors and prime movers. While generators and prime 
movers can be modeled in detail, the transmission line and load equations are purely 
algebraic. POSSIM also assumes frequency deviations are small. Since load dynamics 
are important in shipboard electrical systems and frequency deviations can become large, 
POSSIM's applicability 1s limited. 
1.3.2.3 MANSTAB 

The MAchine and Network STABility (MANSTA B) [19] program is an extension 
of POSSIM which also includes transmission line dynamics. It still does not allow for 
dynamics in any of its loads. Generally, MANSTAB is suitable for studying high speed 
dynamics and does not include governor or prime mover models. For this reason, 


MANSTAB 1s not suitable for simulating shipboard systems. 
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1.3.2.4 MANTRAP 


The MAchine and Network TRAnsient Program (MANTRAP) [4] is a General 
Electric Company modification of the Bonneville Power Administration’s Network 
Transients Program. It is designed to solve problems concerning the interaction between 
a synchronous generator, its excitation system, torsional system, and the power trans- 
mission system. MANTRAP has a major drawback in shipboard studies in that its 
assumption of an infinite bus does not hold. 


1.3.2.5 LOTDYS 


The LOng Term DYnamic Simulator (LOTDYS) [21] is designed to study long 
term transients of power systems lasting up to 5, 10, or 20 minutes. LOTDYS assumes all 
the generators operate at the same speed and the generator transient time constants and 
reactances can be ignored. LOTDYS also ignores excitation system dynamics and load 
dynamics. Prime mover dynamics, load shedding, and power plant auxiliaries are all 
modeled in detail. The constraints on LOTDYS severely limits its usefulness in studying 
shipboard systems. 


1.3.3 Software Packages for Systems of Nonlinear Equations 


Since the models of most electric machines are described as systems of linear or 
nonlinear equations, it seems reasonable that a general simulation program could be used 
to simulate the shipboard system. On closer examination however, the presently available 
software packages are limited in their ability to organize and interconnect several different 
machine models into a large network. Writing a shipboard electrical system as one totally 
integrated model invites the introduction of numerous programming errors as the input 
definition file becomes so large as to be unmanageable. Furthermore, the task of trying to 
add or subtract elements from the network becomes formidable. The ability to define ele- 
ments in separate blocks is very important in understanding what a simulation is doing, in 


debugging an input file, and in making error free changes to the configuration. 
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Many of the nonlinear equation solving packages are unable to solve implicit equations 
which is a handicap when trying to interconnect different models. In electrical system 
simulations, the variables representing the voltages and currents at the terminals of an 
element must be shared with the other elements that connect to the terminals. If implicit 
equations are not allowed, one of two methods is normally used to effect this sharing. The 
first method calls for one device explicitly defining the variable while all the remaining 
variables implicitly define it. This method is very difficult to implement because it forces 
one to define variables to be either inputs (implicitly defined) or as outputs (explicitly 
defined). Problems arise when one tries to connect two outputs or two inputs together (1.e. 
connecting two generators in parallel). Since in real electrical systems there 1s no such thing 
as an input or an output (voltages and currents depend on the properties of all the elements 
attached to a node), this method imposes an artificial constraint on the network definition. 

The other method for interconnecting element models is to define the voltages ofevery 
device to be inputs and the currents to be outputs. The voltage at a node is defined as a 
separate variable whose derivative is equated to function of the sum of the currents entering 
the node. This function should result in the node voltage having a very fast time constant. 
Adding the fast time constant however, makes the system stiff and difficult to solve 
numerically. It also adds dynamics that are purely fictional and in general, defeats the 
purpose of model reduction. 


1.3.3.1 CSMP 


IBM's Continuous System Modeling Program (CSMP HI) [24] is a general 
purpose program for solving algebraic and differential equations. The program is not 
capable of solving implicit equations and is limited in the size of the systems it can model. 


For these reasons CSMP should not be used to simulate shipboard systems. 
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1.3.3.2 SIMNON 


SIMNON is a program for SIMulating NONlinear systems of equations which was 
developed by the Lund Institute in Sweden. It is similar in many respects to CSMP and 
likewise suffers from its inability to solve implicit equations. 


1.3.3.3 ACSL 


The Advanced Continuous Simulation Language (ACSL) [1] is another general 
purpose simulation program like CSMP and SIMNON. While ACSL does have the ability 
to include implicit equations, its execution time slows tremendously when they are 
included. ACSL also requires a single input file which can become very large and 
unmanageable for even moderately sized power systems. 


1.3.4 SEPSIP (Shipboard Electrical Plant SImulation Program) 


Since none of the commercially available software was suitable for studying shipboard 
electrical distribution systems, the author undertook the task of developing the Shipboard 
Electrical Plant SImulation Program (SEPSIP) which incorporates all of the desired 
features listed insection 1.3.1. SEPSIP solvesthe problem of interconnecting device models 
by forcing all of the device electrical variables to be input variables. This approach 
mathematically isolates all of the elements of the network from one another. A separate 
network description specifies how the different input variables relate to one another. The 
network description provides values for all of the input variables for every element. The 
elements in turn, provide feedback in the form of implicit variables to the network 
description as to how well these input variables solve the constitutive equations defining 
the element. The manner in which this is accomplished is discussed in chapter 2. 

The equations defining an electrical device are subroutines of SEPSIP written in the 
C programming Language. This allows for very detailed and complex models to be 
incorporated in simulations. It also requires a detailed knowledge of programming in C. 


Once a device description has been written however, its inclusion into network descriptions 
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is easy. The concept of using SEPSIP is that initially a number of device descriptions are 
written to describe the various elements of a shipboard system. Once this library of devices 
has been created, simulations can be conducted by constructing networks interconnecting 
the devices models selected from the established library. 


1.4 Significance of Thesis 


The discussions presented in the previous sections demonstrate the need for a computer 
analysis tool for simulating shipboard electrical distribution systems. SEPSIP, the program 
written as a part of this thesis, is capable of conducting the desired simulations if time 1s not 
aconstraint. The organization and user interface of SEPSIP has been optimized to simulate 
electrical distribution systems such as those found onboard warships. SEPSIP still requires 
optimization to improve the speed in which it completes simulations. In this regard, potential 
improvements to SEPSIP are included in chapter 6. 

The general nature in which SEPSIP organizes and solves systems of nonlinear equa- 
tions has applications outside of electrical power engineering. Any physical system composed 
of a topological network interconnecting nonlinear dynamic elements can be modelled with 
SEPSIP. The author in fact, has successfully used SEPSIP to conduct a nonlinear dynamic 
simulation of the motions of a submarine in response to control surface deflections. For this 
simulation devices were created which related the motions of the bare hull and various 
appendages to the forces and torques on the center of the submarine. The results of this 
simulation correctly predicted dynamic responses that can not be derived from conventional 
linear theory. 


1.5 Outline of Thesis 


The following chapters are organized to correspond to the four design elements used 
to create SEPSIP. The second chapter describes the theory and strategy that define the 
requirements and properties of SEPSIP. The third chapter is a "user's manual" that describes 


how the requirements of chapter 2 were implemented. Chapter four presents eight device 
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descriptions created for SEPSIP to demonstrate its usefulness. Chapter five uses the devices 
of chapter four to conduct actual simulations and where possible, to verify the results from 
SEPSIP with known responses. 

Chapter six provides an assessment of SEPSIP and lists a number of possible 
improvements for the program. The appendices provide lıstings of source code and 


instructions for adding new device descriptions to SEPSIP. 
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CHAPTER 2 
THEORY OF THE COMPUTATIONAL METHOD 
2.1 General Strategy 


The principle underlying the organization of SEPSIP is that the constitutive relations 
of the elements of a power system should be separated from the nodal equations describing 
the network interconnecting the elements. In electrical systems, a node is the electrical 
connection between two or more elements. The current entering or leaving a node must 
conform to Kirchhoff’s Current Law which states that the sum of the currents entering a node 
is equal to the sum of the currents leaving the node. Additionally, the voltage at a node is 
the same for every element attached to it. The role of the constitutive relations is to relate 
the voltages of the nodes an element is connected to, to the currents resulting from the element 
that enter and leave those same nodes. These principles are fulfilled in SEPSIP by implicitly 
defining all of the network voltages, currents, and other variables within the constitutive 
equations defining the individual elements. During each interval of the time domain simu- 
lation, the network variables are systematically varied so that Kirchhoff’s current law is 
always satisfied and until all the implicitly defined constitutive equations are satisfied. 

The advantage to this method is that each element can be treated separately from all 
the other elements. The element models need not be concerned with the other elements they 
are connected to. It is the responsibility of the network equations to provide input variables 
that satisfy the element's constitutive relations, and still satisfy the nodal equations. The 
purpose of defining the constitutive relations implicitly is to provide feedback to the network 
equations that indicate how far off the input variables provided by the network are from 
satisfying the constitutive relations. This feedback is used to make corrections to the input 
variables until all of the constitutive relations are satisfied. 

To implicitly define the constitutive equations for the element, they are put into the 


form: 


SCH 





FG)=0 [1] 
where 
x = Network Variable Vector 
F()=A vector operator (potentially nonlinear) that describes the constitutive equations. 
If an x is chosen so that the constitutive equations are not fulfilled, then [1] will not be true. 
Instead, an implicit vector can be defined: 
I=F(x) [2] 
Each element then, will have its own x and corresponding implicit vector. The role of 
the network is to choose appropriate x vectors that satisfy the network nodal equations and 


result in the / vectors having zero length. 


EXAMPLE: 


A resistor is a simple example for illustrating this principle of defining constitutive 
equations implicitly. A resistor is a device that connects two nodes and satisfies Ohm's Law. 
If we define the voltages at the two nodes to be v, and v, and the current entering the resistor 
from the two nodes to be 1, and 1,, then the constitutive relations for the resistor are: 

Vo — V, = iR 
70 ٤ 
where 

R = Resistance 


Figure 2.1-1 Resistor 
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Since a resistor is a linear device, the constitutive relation can be expressed as a matrix 


equation of the form: 


Since a resistor is a linear element, the matrix in the above equation is also the Jacobian 
matrix for the device. 


2.2 Device Definitions 


In the language of SEPSIP, a device 1s a mathematical model of a piece of electrical 
equipment. Examples of devices are models of synchronous generators, transmission lines, 
breakers, induction motors, and resistive loads. À device is differentiated from an element 
in that an element is a particular example of a device. For example, element GTGl1 may 
represent the 2000 KW gas turbine generator located in the forward engine room of a 
destroyer. Part of GTGI's description would be that it is a device of type KY103 which 
indicates which equations should be used to model GTG1. There could also be a GTG2 of 
type KY103. A device is characterized by the equations which relate the variables that 
represent the interaction of the device with everything else external to itself. Examples of 
device variables include voltages, currents, speeds, forces, torques, position of switches, 
temperature, and pressure. These variables can be organized into a number of categories 
according to the nature of their interaction between the device and the world external to the 


device. 


293: 





Figure 2.2-1 SEPSIP Variables 
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2.2.1 Input Variables : Interacting with the Network 


Input vanables are those variables which interact with other devices through the 
network description. The network description consists of a number of nodes each having 
one or more subnodes. The node itself has no mathematical significance, it merely organizes 
subnodes into easily understood groups. The subnodes on the other hand, specify which 
network law should be applied to the input variables attached to it. Every input variable 1s 
assigned to one and only one subnode of a node. Each subnode however, can have an 
unlimited number of input variables assigned to 1t. There are four types of subnodes to 
which a variable can be connected to: voltage subnodes, reference voltage subnodes, current 
subnodes and reference current subnodes. 

As an example, a node connecting a three phase motor to a transmission line would 
contain six subnodes: 3 voltage subnodes to relate each of the voltage phases and 3 current 


subnodes to relate each of the current phases. 
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2.2.1.1 Voltage Subnodes 


All of the input variables attached to a voltage subnode are assigned the same value 
at all times. This voltage subnode value becomes one of the system variables that must 
be solved for. Although primarily used for communicating voltages, a voltage subnode 
can also be used tocommunicate other information between two devices. Examples include 
load sharing information and load shedding information. 


2.2.1.2 Reference Voltage Subnodes 


A reference voltage subnode 1s identical to a voltage subnode with the exception that 
the subnode voltage 1s specified as a fixed value and therefore is not asystem variable. A 
reference voltage subnode must be used to set the ground potential, and may be used to 
set fixed operating points for certain elements. 


2.2.1.3 Current Subnodes 


A current subnode relates the variables attached to it by a conservation law which in 
electrical terms is known as Kirchhoff's Current Law. This law states that the sum of the 
variables attached to a current subnode is identically zero. In SEPSIP, this is accomplished 
by assigning the first variable attached to a current subnode the negative sum of the other 
attached variables. All of the input variables after the first one connected to the current 
subnode become system variables that must be solved for. The convention for current 
direction is that the current always enters the device and leaves a subnode. 


2.2.1.4 Reference Current Subnodes 


A reference current subnode does not satisfy Kirchhoff’s Current Law. All of the 
input variables attached to it become system variables. In most simulations, Kirchhoff's 
Current Law at one subnode is a linear combination of all the Kirchhoff’s Current Law 
equations from the other current subnodes. To specify the law again would result in either 
a system with too many implicit variables, or one which has a singular system Jacobian 


matrix. 





2.2.2 Parameters 


Parameters are variables that do not change through out a simulation. They are used 
when defining an element to customize a device model to fit the properties of a particular 
electrical component. Examples of parameters are resistances, inductances, capacitances, 
time constants, bias voltages, and saturation points. 


2.2.3 Implicit Definition of Input Variables 


An important requirement for the equations describing a device is that the input 
variables must be implicitly defined. The network balancing algorithms determine the values 
the input variables take on. The device description provides information (feedback) as to 
how closely the implicit equations are satisfied through implicit variables. Implicit variables 
have a value of zero when their corresponding implicit equations are satisfied. One way to 
look at this process is to view a device as a transfer function between the input variables 
and the implicit variables. The Network then uses the implicit variables to iteratively 
generate the input variables until the implicit variables are driven to zero. 


2.2.4 Implicit Variable Selection : Rotating and Translating Axes 


One has a lot of latitude in defining the implicit variables. The easiest method is to 
write the constitutive equations, move everything over to one side, then define this quantity 
to be the implicit variable. This is the technique used in the last example which modelled 
the resistor. Unfortunately, this method can result in numerical instability when dealing 
with nonlinear devices. 


Figure 2.2.4-1 Diode 
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Take a diode for example. A simple model for a diode is a switch that allows positive 
current to flow when the voltage across 1t 0.6 volts. Once current is flowing through the 
diode, the voltage drop across it 1s maintained at 0.6 volts. As with the resistor, the input 
variables are defined: v, and v, forthe voltages, and 1; and 1, for the currents. The constitutive 
relations are: 

٢٣-٢۶ 6‏ : اھ7 
v-v=06 : <0‏ 
۷0 ,1+ 
The easy method of defining the constitutive equations would be to define I, and I, to‏ 


be: 


, =| 7 : E 
© lyy-v,-0.6 : v,-v,>0.6 
ME 
This definition unfortunately, works badly in many circumstances. To begin with, the 
definition allows for negative current to flow when the diode 1s forward biased. Another 
problem is that the implicit variable I, is discontinuous at the boundary where v, - v, = 0.6. 
This type of discontinuity will usually cause much difficulty when trying to iteratively solve 
equations with most standard techniques (Such as the Newton Raphson method used in 
SEPSIP). In general, keeping the highest possible order derivative continuous across a 
boundary will help tremendously in achieving a numerically stable solution. 

The definition of I, can be greatly improved by defining a new set of axes centered 
on the boundary point (v=v,-v, =0.6 and 1i; 2 0) and rotated 45 degrees. The transformation 


matrix to the new x and y variables 1s given by: 


7 _ v2 1 1\(y%-v,-0.6 
y) 2\-1 1 S 


The constitutive equation for I, becomes: 





y =lxl 

I; can then be defined to be: 

L=y-L! 

This definition for I) is continuous. The discontinuity has been moved to the first 
derivative. For simple simulations where the voltage across the diode is not changing very 
rapidly compared to the simulation time increment, this definition for I, will normally work. 
Normally, one would like to have even higher order derivatives continuous to ensure 
numerical stability. This can only truly be done in this case by changing the constitutive 
equation to reflect more characteristics of a physical diode. 

Even if the constitutive law of the diode is changed to make the slope continuous, the 
method outlined above for rotating axes should still be used. This is because most numerical 
methods rely on the partial derivatives of the implicit variables with respect to the input 
variables in the form of a Jacobian Matrix to update the last guess for the input variable. A 
very steep slope results in a Jacobian element being very large and the potential of having 
a floating point overflow when the Jacobian matrix is created or inverted. An overflow can 
also occur when the corrections to the input variables cause the recalculated implicit variable 
to overflow. In general, when the slope of the v/i characteristic has a section with a very 
steep slope, the axes should be rotated so that the maximum slope 1s minimized. 

Another consideration when defining implicit variables 1s choosing the magnitude 
correctly. Since an exact solution which results in all the implicit variables being identically 
zero may not be possible due to time constraints or round off error, every iterative scheme 
relies on a method for determining when the implicit variables are close enough to zero. 
One way is to compare the root mean square of the implicit variables with a preset number. 
If this method is used, the order of magnitude of all the implicit variables should be the same 


for the same order of magnitude inputs. Otherwise, certain variables would be allowed to 
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vary more than other variables. For example, one voltage may be known to within a 1% 
error while another may be known to within a 0.1% error. Of course, if this effect is desired, 
one can easily weight an implicit variable by an arbitrary constant. 


2.2.5 Data Storage : State Variables 


A number of device models require the condition of the device during the last time 
increment be known. This information is conveyed to the model through state variables. 
Examples of states include the voltage and current of a capacitor or inductor, position of 
switches, position of breakers, time since a specific event occurred, and peak values of 
specific variables. One could conceivably use the state variables to store the time history 
of a variable to determine averages or other statistical or spectral properties. 


2.2.6 External Inputs 


External Inputs allow the user to interact with device models. The user can create a 
queue which contains the values an external input takes on at specified times. Uses for 
external inputs include position of switches, control waveforms, reference voltages, input 
waveforms from another program, controlling the configuration of an element. 


2.2.7 External Outputs 


External Outputs (along with External Inputs and Voltage Subnode voltages) are 
variables the user is allowed to monitor during the simulation. Therefore, any quantity that 
a user may be interested in should be defined as an external output variable. The user still 
has the choice as to which external outputs to see, so there 1s no problem with defining a 
number of output variables. External Output variables can also be stored in files for plotting 
at a later time. 


2.2.8 Integration Techniques 


Constitutive equations for devices often require the integration of a time derivative. 
Any textbook on numerical methods will provide a large selection of integration algorithms 


along with methods of determining their accuracy and stability. For most simulations 
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however, there are three methods that work well. The first is the Euler Forward method 
which is considered an explicit technique since it requires knowldege only of the values of 


the varıables during the past time step. 


hu pdt 

The Euler Forward method is particularly suited for occasions when the differential 
equation has a strong mode that is much slower than the simulation time step. For systems 
with many modes, the Euler Forward method can eliminate the need to add additional implicit 
variables and associated input variables. The drawback of the Euler Forward method is that 
it requires small time steps for fast modes. 

The Euler Backward method is similar to the Euler Forward method with the exception 
that the variables are evaluated at their present values instead of their old values. The Euler 
Backward Method is thus an implicit scheme since it uses present values to specify another 
present value. Since most devices will have several implicit variables to offset input vari- 
ables, there is usually no extra computational burden in using an implicit scheme. 

xx, t dty 

The Euler Backward method should normally be used where the possibility exists that 
the time increment will be longerthan the time constant associated with any ofthe differential 
equations. 

The implicitly defined Trapezoidal Method combines the Euler Forward and Backward 


methods: 
dt 
X =Xojg Y 2 (Y + Yoa) 


Whenever possible, one should use the trapezoidal rule due to its greater accuracy. 
However, when its use requires the addition of input variables to compensate for additional 


implicit variables, the Euler forward method should be considered. 
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There also exists a modified Trapezoidal method where the weights for y and y, differ 
from 0.5. Weighting y slightly more helps prevent instabilities when the time step approaches 
the characteristic time constant of the equation. 

2.2.9 Modelling Transfer Functions 

Many devices have components that are modelled as transfer functions using Laplace 

Transforms. A common example has the form: 


_ As +B 
` Cs+D 





Since 2 = Xs, the Trapezoidal Method can be modified to provide an Implicit Variable 


d 
I = A(x +(e ری‎ 60 —») [£o d) 


This equation can be incorporated in the definition of a more complicated device or can be 
defined seperately as its own device. 


2.2.10 Jacobian Construction 


SEPSIP uses a Jacobian Matrix to determine the corrections to the input variables in 
order to drive the implicit variables to zero. The elements of the Jacobian Matrix are the 
partial derivatives of the implicit variables with respect to all of the input variables. In other 
words, the Jacobian Matrix gives the slopes of the implicit surface in the directions of each 


of the input variables. 
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SEPSIP allows for the Jacobian to be calculated in two different methods. The device 
description can generate the Jacobian, or the network will approximate it. Normally the 
device description should create the Jacobian in the interest of speed and control over how 
it is created. It usually isn't too difficult to come up with analytic expressions describing 
the partials of the implicit variables. If desired, the network approximates the Jacobian by 
varying the input variables a small amount in either direction, and noting how much the 
implicit variables change. The change in the implicit variable divided by the change in an 
input variable is usually a fair approximation for the partial derivative. 

Another advantage to having the device description generate the Jacobian is that the 
device description doesn't have to generate the real Jacobian matrix. If a value larger in 
magnitude than the partial derivative is substituted for an element of the Jacobian Matrix, 
the corrections to the input variables will result in the implicit variable being driven to zero 
more slowly. This can be advantageous near discontinuities of the constitutive equations 
and discontinuities in their first derivatives where one may want to retard the transition from 
one side of a discontinuity to the other. 

Replacing an element of a Jacobian Matrix with a value smaller in magnitude than the 
partial derivative will usually result in a numerically unstable simulation. The corrections 
to the input variables will be larger than needed to drive the implicit variable to zero. The 
implicit variable will usually oscillate around zero and grow in magnitude with time. 


2.3 ELEMENT DESCRIPTIONS 


As described earlier, an element is a particular example of a device. A resistor for 
example, could be a device, while R11 which is a specific circuit element of type resistor 
having a resistance of 47 ohms would be an element. Elements are differentiated from each 
other by their names, device type, and parameter specification. The first section of the input 


file for SEPSIP contains all of the element definitions and parameter assignments. 
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2.4 NETWORK Description 


The network ıs described by assigning all of the input variables from all of the elements 
to one and only one subnode. The subnodes in turn, are organized into groups called nodes. 
The purpose of the subnode isto relate the input variables of one element to the input variables 
of another variable. The nature of the relationship is determined by specifying the subnode 
to be either a voltage subnode or a current subnode. The relationship is further modified if 
the subnode is classified as a reference subnode. 

Once the network is specified, system variables can be defined. System variables are 
members ofthe smallest subset of the input variables from which all of the other input variables 
can be derived from by using the relational properties of the subnodes. For a well defined 
simulation, the number of system variables will equal the total number of implicit variables. 
If the two numbers are not equal, there will either be many solutions to the simulation, or 
none at all. SEPSIP will not conduct a simulation unless the number of system variable does 
indeed equal the total number of implicit variables. 


2.4.1 Voltage Subnodes 


The input variables at a voltage subnode are all set equal to the subnode voltage which 
is a system variable (unless designated a reference subnode). As its name implies, a voltage 
subnode's purpose is to specify potential values. The potential value need not only be 
voltages however. Temperature, pressure, position, deflection, and Boolean states can also 
be communicated through voltage subnodes. 


2.4.2 Current Subnodes 

Input variables assigned to a current subnode satisfy Kirchhoff's Current Law (unless 
designated a reference subnode). The first input variable attached to the current subnode 
is set equal to the negative sum of all the remaining input variables attached to the subnode. 


All of the remaining input variables are system variables. The current subnode can therefore 
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be used where input variables must satisfy a conservation law through the network. Forces, 
torques, fluid flow rates and power flow can also be handled in addition to electrical current 
by the current subnode. 


2.5 Reference Subnodes 


To match the number of implicit variables with the number of system vanables or to 
ensure there is a unique solution, it may be necessary to designate one or more subnodes a 
reference subnode. If a voltage subnode is specified to be a reference subnode, its value is 
always setto a user selected preset value. The normal usage would be to declare the ground 
voltage subnode to be a reference with zero value. Reference voltage subnodes can also be 
used to simulate power supply voltage busses. 

Reference current subnodes do not satisfy Kirchhoff’s current law. All of the input 
variables attached to them are designated system variables. Ina closed system (i.e. one where 
the conservation law applies at every current subnode and in every element through out the 
system), Kirchhoff's current law at one of the current subnodes will be a linear combination 
of all the other Kirchhoff's current law equations at the other current subnodes. Therefore, 
the sum of the currents entering the reference subnode will automatically be zero. 

Reference current subnodes also provide a way to leave input variables unterminated. 
This property can be used by device descriptions to increase the number of implicit variables 
used to represent the relations defining the device. Normally, when modelling electrical 
devices, one implicit equation should be provided for each terminal (which corresponds to 
two input variables : one voltage, and one current). This can be seen if we define: 

m = number of terminals (voltage-current pairs) in the system 

n = number of subnodes in the system 

r, = number of reference current subnodes 

r, = number of reference voltage subnodes 

N, = number of system variables due to voltage subnodes 


N, = number of system variables due to current subnodes 
N. = number of implicit equations 


then 


ےت 





N,=n-1, 
N¡=m-n+r, 
N.=N,+N,=m-r+r, 

Since electrical devices deal with potential differences, rather than with the absolute 
magnitude of the potential, a reference potential is required to fix one of the nodes. As 
explained above, a reference current subnode is also required to prevent a singular system. 
The total number of implicit variables must therefore equal the number of terminals. 

If a device description requires more implicit variables than it has terminals, extra input 
variables must be provided for the excess implicit variables. These variables should be 
attached to a reference current subnode or to separate voltage subnodes. 


2.6 Conducting the Simulation 


The simulation of the system described by the network description is carried out by 
solving a system of nonlinear equations at each time increment. Each nonlinear equation 
corresponds to the definition of an implicit variable which has a value of zero when the system 
is balanced. To balance the system, an initial guess is first made for all the system variables. 
For the first time step, the user may specify the guess, otherwise the system variables are all 
set to zero. For the remaining time steps, the results of the previous time step are used. The 
total number of independent system variables 1s considerably smaller than the total number 
of input variables since a number of the input variables are related through the network 
definition. For example, all the input variables attached to a voltage subnode are always 
given the same value. From the system variables, all of the input variables to each of the 
elements is derived from a description of the network topology. Using these values of the 
input variables, the implicit variables are calculated for each of the elements. If the mean 
square value of all the implicit variables are below a specified threshold, then the system is 
considered balanced. If the mean square value 1s larger than the threshold, then the system 


Jacobian matrix is constructed. The system Jacobian matrix consists of the partial derivatives 
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of the implicit variables with respect to each of the independent system variables. It is 
fabricated by piecing together the Jacobian matrices of all the elements. Inverting and 
multiplying the system Jacobian matrix by the vector containing the implicit variables pro- 
vides a correction to the independent system variables. Once the corrections are subtracted 
from the independent system variables, the implicit variables are recalculated and the 
balancing process continues until the system is balanced. Once balanced, results are printed, 
state variables and external input variables are updated, and the time counter is incremented. 
In this manner, the simulation is stepped through time. 


2.6.1 Setup 


During the setup stage, two arrays of data structures are created to describe the network 
topology in a compact form. The first array describes all ofthe independent system variables 
and how they relate to the input variables of the individual elements. The second array 
keeps track of which implicit variable belongs to which element. 

Each data structure for the system variable array consists of three subarrays. The 
number of entries in all three subarrays is equal to the number of input variables associated 
with the system variable. For a non-reference voltage subnode, all of the input variables 
attached to it will be associated with one system variable and will therefore each have entries 
in the three subarrays. A reference voltage subnode has a specified value and therefore is 
not associated with any of the system variables. For a reference current subnode, all of the 
input variables attached to it are separate system variables whose corresponding subarrays 
will contain only one entry. A non-reference current subnode”s first input variable is set 
equal to the negative sum of the remaining input variables. Each of the remaining input 
variables is associated with one system variable whose subarrays have two elements: The 
first corresponding to the first input variable; and the second corresponding to the remaining 


input variable. 
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The first subarray for each system variable data structure contains integer offsets to 
the array of elements. The second subarray contains integer offsets to the input variable list 
within the element description. The third subarray contains a multiplier that is used in 
constructing the system Jacobian matrix. Normally this multiplier has a value of 1.0, but 
for the special case of a system varıable corresponding to an input varıable attached to a 
non-reference current subnode, the first entry has a value of -1.0 to account for the fact that 
the first variable associated with a current subnode is the negative sum of the remaining 
variables. 

The data structures for the implicit variable structure array contain only two integer 
offsets. The first is an offset for the array of elements and the second is the offset in the 
array of implicit variables for the element. In this manner, all of the implicit variables can 
easily be referenced. 

The setup section also creates an implicit variable cross-reference array in the 
description of each element that specifies which entry in the implicit variable structure array 
to which each of the implicit variables of the element corresponds. 


2.6.2 Initialization 


Before the simulation starts, all of the input variables, state variables, and external 
input variables are initialized. The initial values for the state variables are actually applied 
to the time increment immediately before the start of the simulation (old state variables). 
The input variables are initialized in a two step process. First, an array of system input 
variables is initialized. Then from the network description, the input variables for all of the 
elements are derived. If a variable is not explicitly initialized by the user, it is set to zero. 


2.6.3 Updating External Inputs 


The external input variables are updated at each time increment by scanning the 
external input queue for variable changes that occur before the present system time. All of 


the external input variables scheduled for a change in value are then updated. 
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2.6.4 Balancing the System 


The process of finding a set of input variables that simultaneously satisfies all the 
network equations and all the implicit equations of the elements is known as balancing the 
system. The procedure involves calculating the implicit variables, constructing a system 
Jacobian matrix, calculating corrections to the input variables, and repeating the process 
until the implicit variables are within tolerable limits of zero. 


2.6.4.1 Calculating Implicit Variables 


The first step in balancing the system is calculating the implicit variables. The 
functions describing each of the elements are called one at a time and provided with the 
appropriate input variables. These functions use the input variables along with the external 
input variables and the state variables calculated in the previous time step to generate the 
implicit variables. 

Once all of the implicit variables have been calculated, they are assembled into an 
implict variable array in the order specified in the implicit variable structure array con- 
structed in the setup phase. The mean square value of all the implicit variables 1s also 
calculated and if its magnitude is smaller than a predefined amount, the sytem is considered 
balanced and the program jumps to printing the results out. 


2.6.4.2 Manufacturing System Jacobian Matrix 


The system Jacobian matrix is generated by piecing together the Jacobian matrices 
for each of the elements. The elemental Jacobian matrix can be generated by the function 
which also produces the implicit variables, or it can be approximated numerically. The 
function that returns the implicit variables also returns a flag indicating whether or not the 
Jacobian matrix was calculated. If the matrix was not constructed, it is manufactured by 


varying each of the input variables slightly and approximating the partial derivatives by 
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dividing the differences between the resulting implicit variables by the differences of the 
input variables. The percentage change and the minimum change in the input variables 
can be specified by the operator. 

The system Jacobian Matrix 1s constructed one column at a time. Each column has 
its associated structure in the input variable structure array that specifies which elements 
and input variables contribute to that column. Knowing the element and the input variable 
is enough knowledge to extract the appropriate column from the element Jacobian matrix. 
Whichrow inthe system Jacobian matrix to insert each of the entries ofthe element Jacobian 
column is provided by the implicit variable cross reference array. By stepping through 
each of the structures of the input variable structure array, the entire system Jacobian matrix 
can be constructed. 

One result of separating the creation of the system Jacobian matrix from the element 
Jacobian matrices is that extra work is done in creating columns in the element Jacobian 
matrices that do not contribute anything to the System Jacobian. This arises whenever an 
input variable is attached to a reference voltage subnode. Since a reference voltage node 


always has a constant voltage, it does not contribute a system variable. 
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Figure 2.6.4.2-1 
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2.6.4.3 Calculating Variable Corrections via Newton-Raphson 
Once the system Jacobian matrix J and the implicit variable vector i are created, 


corrections to the input variable vectorx can becalculated viathe Newton-Raphson method. 
The matrix equation Jx = I is solved using Gaussian Elimination with partial pivoting. If 
the Jacobian Matrix is singular, the Gaussian Elimination will fail due to the inability to 
get a non-zero number in the pivot element. If this occurs, the simulation halts with an 
error message. 

After the corrections have been applied to the input variable vector, the implicit 
variables are recalculated and the process continues until the mean error of the implict 
variables is within tolerable limits of zero, or until a predetermined number of iterations 
have been made. If the iteration limit is reached, the simulation has failed to converge on 
a solution is halted with an error message. 


2.6.5 Printing Results 


Since the operator can specify a printing time increment different from the simulation 
time increment, a test 1s made to determine whether or not any results should be printed. If 
the test is successful, all of the variables designated to be displayed in the simulation section 
of the input file are printed to the screen, or to a file if one was specified by the operator. 


2.6.6 Updating State Variables and Time Counter 


The state variables are produced by the function that also calculates the implicit 
variables. Once the system is balanced, these state variables are moved to another array 
called the old state variable array which can be used during the next time increment. 

The time variable is also updated by adding the specified time increment. If the time 
variable exceeds the maximum time of the simulation, the simulation is terminated and 


control returns back to the main menu of SEPSIP. 
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2.6.7 Potential Problems 
2.6.7.1 Numerical Instability 


The Newton-Raphson method ıs only guaranteed to converge on a solution if the 
initial guess ıs sufficiently close to the solution. Unfortunately, it is very difficult to 
determine how close, ’sufficiently close’ is. If the time increment is small enough, the 
input variables should not change appreciably. Hence using the results of the previous 
time increment as a first guess usually produces good results. There are two occasions 
however, when this may not hold. First, during the initial balancing of the system, the 
initial guesses are provided by the user. If these guesses are not sufficiently close to the 
solution, the system will not converge. Another situation that may occur during the 
execution of a simulation is that a discrete event may occur that changes the configuration. 
The solution to the new configuration may not be sufficiently close to the solution of the 
old configuration to guarantee stability. 


2.6.7.2 Singular Jacobian Matrix 


The simulation can also fail if the System Jacobian Matrix is singular and therefore 
uninvertable. This can occur if the network is defined poorly or if a discrete event results 
in a poorly defined network. Systems incorporating switches or breakers are particularly 
susceptible to this problem. (If two switches are connected in series and both opened, their 
implicit variables would be set equal to the terminal currents. The current subnode con- 
necting the two switches would further equate the two attached currents and thereby 
overspecify them. Furthermore, the voltage of the connecting voltage subnode would not 
be implicitly defined anywhere.) 


2.6.7.3 Non-Unique Solutions 


In nonlinear systems, it is often possible for more than one set of input variables to 
satisfy all of the constitutive relations and network equations. For these systems, it is very 


important to provide the solution with the best possible intitial guesses in order for the 
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system to converge on the desired solution. Once the simulation has started, using the 
results of the previous time step as an initial guess should normally result in convergence 
to the proper solution. This method for determing the initial input variables can still fail 
during time steps in which system reconfigurations have taken place that result in certain 


variables changing considerably over the one time increment. 
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CHAPTER 3 
SEPSIP 
SHIPBOARD ELECTRICAL PLANT 
SIMULATION PROGRAM 
3.1 Introduction 


SEPSIP is a simulation program optimized for solving lumped parameter systems with 
elements that are described by nonlinear constitutive equations. The program is written in 
the C programming language and is presently running under the UNIX operating system on 
Digital Equipment Corporation VAX Workstation II and VAX Workstation 2000 computers. 
The files are located in the sepsip subdirectory of the 13.411 Course Locker of MIT’s Project 
ATHENA. SEPSIP should be easily adapted to other computers and operating systems since 
a minimum of machine specific routines have been used. 

Running a simulation with SEPSIP is a three stage process. First, an input file must be 
created with a text editor such as EMACS. The simulation 1s then carried out by the SEPSIP 
program with the results printed to an output file. Finally, the output file is printed directly 
out or sent to a plotting program such as NORPLOT for viewing. 

This chapter describes how to create an input file and lists the commands available 
when executing SEPSIP. Actual examples of input files can be found in Chapter 5. 


3.2 Data Entry Conventions 


Much effort has been made to ease the task of creating the input files for SEPSIP. The 
input files are very loosely structured in the sense that data need not be entered in specific 
columns, comments can be inserted anywhere, other files can be referenced through "include" 


statements, and to a certain degree, the order of lines is not rigid. 
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3.2.1 Acceptable Characters 


Virtually all of the printing ASCH characters can be used in naming elements, vari- 


tt 


ables, nodes and subnodes. To prevent confusing the program, in addition to "white" 


characters (spaces, tabs, newlines) the following characters should be avoided entirely: 


Additionally, the following characters should not be used for the first character: 
'#+-0123456789 

These characters should not be used for the last character: 
2 

3.2.2 Reserved Names 


The following keywords should not be used for naming elements, variables, nodes or 
subnodes: 

end 

external 

include 

initial 

node 

simulation 


All other keywords can be used, but for clarity, should be avoided. 
3.2.3 Specifying Variables and Subnodes 


Variables are specified in the following format: 
element : variable 
The colon is used to delimit the element name from the varıable name. Tabs and /or spaces 
between the element name and the colon and between the varıable name and colon are 
optional. 
Subnodes are similarly described: 


node : subnode 
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3.2.4 Numerical Entries 


The following formats for entering numbers are valid: 


123 integer 
-123.456 floating point 
123e-4 exponential 
+123E3 exponential 


3.2.5 White Characters 


Spaces and tabs are used to separate data elements. Any number and combination of 
spaces and tabs may be used. A data line is terminated with a "newline" character (also 
known as a Carriage return). 


3.2.6 Continuation Lines 


In general, each line of the input file must be shorter than 80 characters. This usually 
is not a problem since there isn't very much information that must be included on one data 
hne. Continuation lines are allowed however, in the Network Description section. This 
section requires the grouping of a number of variables together. It is therefore quite likely 
that more than 80 characters would be required. Consequently, for this section alone, a line 
can be terminated with \ or... to indicate the data continues on the following line. 


3.2.7 Case Sensitivity 

Keywords are case insensitive (Both upper and lower case letters accepted), all other 
entries are Case sensitive. 
3.2.8 Comment Lines 

Any Line beginning with a ! or # is ignored. Hence comment lines can be inserted 


anywhere within the file by preceding them with ! or #. Blank lines are also ignored. 
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3.3 Input File Generation 


SEPSIP requires an input file to describe the simulation. This file consists of four 
sections: Element Description, Network Description, Initialization, and Simulation 


Description. The input file can be created or edited by any text editor. 


Figure 3.3-1 Sample SEPSIP Input File 


! SEPSIP Input File 
۱ 
! Element Description 
device 1 elm la 
par 11.0 ` 
par_2 3 
end 
device 2 elm 2 
par 1 2.0e-6 
end 


! Network Description 

NETWORK 

! 

NODE gnd 
rv:volt = 0.0 
ri:current 
end 

NODE A 
v: volt = elm la:vl = elm 21 
i: current = elm la:il = elm 2:il 
end L3 


elm 2:vO 
elm 2:i0 


elm 1la:vO 
elm la:i0 


' Initialization Section 


INITIALIZE 
elm la : state 1 37 
elm la : vi 32.2 
end 


NODE VOLTAGE INITIALIZATION 
A:volt 100.0 
end 

EXTERNAL INPUTS INITIALIZATION 
elm 2 : ext in 24 
end = 


'tSimulation Section 
SIMULATION 
Display 
elm la : ext out 1 
A : volt id n 
end 
TIME STEP 1.0 
PRINT STEP 5.0 
TMIN 0.0 
TMAX 1.0 
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3.3.1 Organization -- Using INCLUDE Files 


A common problem among many simulation programs is the requirement that all the 
necessary Information be contained in one file. For large simulations, this results in long 
input files that are difficult to manage and edit. SEPSIP addresses this problem with the 
include keyword. Outside any data block (A data block begins with a keyword and con- 
cludes with the end statement) the keyword include followed by a filename results in the 
insertion of the contents of the *included” file at the location of the include keyword. 
‘Included’ files may also contain include keywords. This feature allows one to organize 
the input file in a number of ways. Figure 3.3.1-1 shows one method of using the include 
keyword. 


Figure 3.3.1-1 Using the INCLUDE Keyword 


t t. Wu 

! t.elm contains the element descriptions 
include t.elm 

! t.net contains the network description 
include t.net 

! t.init contains the initialization section 
include t.init 

! t.sim contains the simulation section 
include t.sim 


3.3.2 ELEMENT Description 
The first section of the SEPSIP input file is the ELEMENT Description. This section 
defines the elements and specifies all of the parameters for the elements. A data block for 


defining an element has the following format: 


Figure 3.3.2-1 ELEMENT Description 


element_name device_name 
parameter value 
parameter value 
parameter value 

end 


Element_name can be any single word as long as it conforms to the conventions of 


Section 3.2. Device name is the name of the particular device. A list of available devices 
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can be obtained by running SEPSIP and entering dd at the first prompt. To obtain more 
information on a particular device (including a list of parameters) enter dD device_name. 
A listing of all the device descriptions can be written to a file by entering dw filename. 

When defining an element, all of the parameters must be specified. An error is gen- 
erated whenever an end statement is reached and all of the parameters have not been provided 
with values. 

Elements can be defined that are not used in the network description. This allows for 
the creation of a ‘junk box’ of parts that can be used when building and modifying the 
network description. A warning will be generated when an element is defined but not used. 
It is also a good idea not to have too many 'spare elements' since execution time will slow 
down somewhat. 

The Element Description section ends when the keyword network is encountered. 


3.3.3 NETWORK Description 


The keyword network signals the beginning of the network description. This section 
consists of data blocks that describe each of the network nodes. All of the lines within the 
data block (except the first and last) describe one subnode. Each data block has the format: 


Figure 3.3.3-1 NETWORK Description 


NODE node_name 
subnode ind : subnode name z elm : var = elm: var 
subnode ind : subnode name z elm: var = elm: var 
END 


Node name and subnode name once again, can be any word following the con- 
ventions of section 3.2. Node name must also be distinct from any of the element names 
as well. Subnode ind specifies the type of subnode and consists of up to three characters, 


two of which are optional. The format of the subnode ind is: 


Reference Indicator: [optional] Anr as the first character of subnode_ind 


specifies that subnode to be a reference subnode. 
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Subnode Type Indicator : [mandatory] The next character must be either 
an i or a v to specify the subnode as either a current or voltage subnode. 
Grouping Indicator : [optional] Subnode ind can end with a digit greater 

than zero to specify the number of consecutive subnodes that should be created. 

If this digit is greater than one, then that number of consecutive subnodes are 

created. The first subnode will have subnode name as its name and include all 

of the specified variables. The following subnodes will use subnode name 

appended by b, c,etc. and use the next consecutive input variable for each 

of the elements. This feature allows one to connect together "multiple conductor 

cables” with one single entry. Typically, this will be a 3 for three phase systems. 

Subnodes can also be designated a reference subnode in the simulation section of the 
input file. For clarity it is better to define all of the reference subnodes in the NETWORK 
section. 

In the special case of a Reference Voltage Subnode, the reference voltage may be 
specified immediately following the subnode name as demonstrated in figure 3.3.3-2. This 
reference voltage value however, can be overwritten by anentry inthe REFERENCE block 
of the SIMULATION section of the input file. If a reference voltage subnode s voltage is 
not specified either in the NETWORK or the SIMULATION section, it is set to a value of 


ZEIO. 
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Figure 3.3.3-2 NETWORK Description Example 


! 
! t.net 
! Norbert H. Doerry 12 March 1989 
! 
NETWORK 
! The following node has both reference voltage 


! and current subnodes 
t 


NODE gnd 
rv:v = gen:vOn = load:vOn = meter:vO 
ri:i = gen:i0n = load:iOn 
end 


۱ 
! The next node shows how to specify each phase 
۱ 
t 


independently 
NODE A 

v:v a = gen:v0a = sw:v0a = meter:vl 
v:v b = gen:v0b = sw: v0b 

vive = gen:vOc - sw:vOc 

i:i a = gen:i0a = sw:i0a 

i:i b = gen:i0b = sw:i0b 

i:i c = gen:i0c = sw:iOc 

end 


! The next node shows how to use the grouping indicator 
۱ 


NODE B 


v3:v = sw:vla = load:v0a 
13:1 = sw:ila = load:i0da 
end 


d 
! The next node shows how to use reference voltages to set 
! operating points 
d 

NODE GEN REFS 

rv:freq = 60.0 = gen:freq 
rv:Vmag = 100.0 = gen:Vmag 
end 


3.3.4 INITIALIZATION Description 

The Initialization Section is the only optional sectional in the input file. If a variable 
1s not explicitly initialized, its value is set to zero. Therefore, one only needs to initialize 
the non-zero variables. The following types of variables may be initialized: 

Input Variables attached to Current Nodes 

Node Voltages 


State Variables 
External Input Variables 


Input Variables attached to Voltage Nodes may also be initialized, but the Node Voltage 


initialization will take precedence and overwrite the Input Variable initialization. 
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The Iniuahzation Section is composed of three subsections that may be entered in any 
order. or omitted if not used. These three subsections are: INITIALIZE, EXTERNAL 
[INPUTS INITIALIZATION], NODE VOLTAGE [INITIALIZATION]. 

3.3.4.1 INITIALIZE 


The INITIALIZE subsection is used to initialize input and state variables for any 
element. The format for this subsection 1s: 
Figure 3.3.4.1-1 INITIALIZE subsection 
INITIALIZE 
element name : variable name value 
element name: variable name value 


element name : variable name value 
end 


Variable name can be the name of either a state variable or the name of an input 
variable. For state variables, value becomes the old state variable for the first time 
increment. For input variables, value is the first guess used for input variables attached 
to current subnodes. If an input variable is attached to a voltage subnode, value is ignored. 

The INITIALIZE subsection ends when the keyword end is encountered. 
3.3.4.2 EXTERNAL [INPUTS INITIALIZATION] 


The External Inputs Initialization subsection begins with either the keywords 
EXTERNAL or EXTERNAL INPUTS INITIALIZATION. Its purpose is to provide 
the default values for the external input variables. The default values set in this subsection 
can be overwritten by entries in the EXTERNAL INPUTS subsection of the SIMU- 
LATION section. 

Figure 3.3.4.2-1 EXTERNAL INPUTS INITIALIZATION Subsection 

EXTERNAL INPUTS INITIALIZATION 

element name : external input name value 
element name external input name value 


element name : external input name value 
end 





3.3.4.3 NODE VOLTAGE [INITIALIZATION] 


The Node Voltage Initialization subsection begins with either the keywords NODE 
VOLTAGE or NODE VOLTAGE INITIALIZATION. Its purpose is to provide the 
initial guesses for all the input variables attached to a voltage subnode. The subsection 
ends wnen the keyword END is encountered. 

Figure 3.3.4.3-1 NODE VOLTAGE INITIALIZATION Subsection 


NODE VOLTAGE INITIALIZATION 
node name : subnode name value 
node name : subnode name value 
node name : subnode name value 
end 


3.3.5 SIMULATION Description 


The SIMULATION section begins with the keyword SIMULATION and continues 
until the end of the input file is reached. The Simulation section details the manner in which 
a simulation is carried out. The following keywords can be included in the simulation 
section: 


CONVERGE 
DELTA 
DELTA_MIN 
DISPLAY 
EXTERNAL INPUTS 
MAX_ITERATION 
PRINT_STEP 
REFERENCE 
TIME STEP 
TMAX 

TMIN 


oo.) CONVERGE 


Format. CONVERGE value 


LIRE 





Value ıs the maxımum mean square error of all the implicit variables allowed for a 
balanced system. Note that since CONVERGE is applied to the average of the implicit 
variables, any single implicit variable may have a square magnitude considerably larger 
than value. 


3.3.5.2 DELTA 


Format: DELTA value 

Value is the fractional amount an input variable 1s changed when the network cal- 
culates the Jacobian matrix of an element using the secant method. The input variable are 
multiplied by (1 + value) and (1 - value) and if the difference between the two resulting 
numbers 1s greater than twice DELTA MIN, they are used to recalculate the implicit 
variables. The differences between the implicit variables divided by the differences 
between the two values of the input variables provide the column of the element Jacobian 
matrix corresponding to that input variable. DELTA 1s only significant if at least one of 
the elements used does not calculate the Jacobian matrix within its defining function. 


3.3.5.3 DELTA MIN 


Format DELTA MIN value 

DELTA MIN is used in conjunction with DELTA. If when calculating an element 
Jacobian matrix by the secant method, the difference between the two offset input variables 
is greater than twice DELTA. MIN, then DELTA MIN is added and subtracted from the 
input variable for the purpose of calculating the partial derivative. 


3.3.5.4 DISPLAY 


Format: 
DISPLAY 
element name : external output variable name 
element name : external output variable name 
node name : voltage subnode name 
node name : voltage subnode name 
end 
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DISPLA Y specifies which variables are written to the screen or to the specified file 
when the simulation ıs conducted. Only external output variables and voltage subnodes 
can be displayed. PRINT_STEP specifies how often the variables are displayed. 
3.3.5.5 EXTERNAL INPUTS 


Format: 
EXTERNAL INPUT 
element_name : external_input_ variable name value time 
element name: external input variable name value time 
element name: external input variable name value time 
end 


EXTERNAL INPUT provides the information needed to produce an external input 
queue that tells the simulation when the value of an external input value should be changed. 
Time is the simulation time at which the specified external input variable should be set to 
value. 


3.3.5.6 MAX_ITERATION 


Format: MAX_ITERATION value 

Value is the maximum number of iterations that are performed during any single 
time interval in an attempt to balance the system. If the system can not be balanced in 
fewer iterations, an error message is printed and the simulation 1s halted. 


3.3.5.7 PRINT STEP 


Fornat PRINT STEP value 
Value specifies how often the variables listed in DISPLAY are printed. 


3.3.3.8 REFERENCE 


Format: 
REFERENCE 
v:node name: voltage subnode name value 
v:node name: voltage subnode name value 
1: node name: current subnode name 
end 


The REFERENCE subsection can declare subnodes defined in the NETWORK 


section to be reference subnodes (whether or not they were defined previously to be ref- 





erence subnodes in the NETWORK section). Since the Simulation section may be 
modified after an input file has been loaded into SEPSIP, this section can also be used to 
vary the voltage of a reference voltage subnode between simulations. Value overrides the 
default value provided in the NETWORK description section. 

3.3.5.9 TIME STEP 


Format: TIME STEP value 

Value is the time step used in calculating the simulation. 
3.3.5.10 TMIN 

Format: TMIN value 

Value is the initial value that the time counter is initialized to. After each time the 
system is balanced, the time counter is incremented by the TIME STEP. 


3.3.5.11 TMAX 


Format: TMAX value 
Value is the largest value that the time counter can take on. If the time counter 
exceeds value, the simulation is successfully concluded and control passes back to the 


main menu of SEPSIP. 





3.4 Running the Simulation 
3.4.1 Starting SEPSIP 


The method for executing the SEPSIP program depends on the operating system being 
used. On MIT' s Project ATHENA, the following procedures should be used: 


athena% attach 13.411 
athena% /mit/13.411/sepsip/sepsip 


Or 


athena% attach 13.411 
athena% /mit/13.411/sepsip/sepsip input filename 


The program starts by printing a welcome message followed by the version number 
and date. Ifinput filename is specified, itis loaded. Any errors detected are listed as well 
as the opening of any include files. SEPSIP then enters the main menu and prompts for the 
first command. 


3.4.2 Command Entry Conventions 
3.4.2.1] SEPSIP Menus 


SEPSIP is a menu oriented program consisting of one main menu and several sub- 
menus. The menus are organized in two columns: The first contains single characters 
used to execute the commands listed in the second column. After the menu is displayed, 
the user can enter the character corresponding to the desired command followed by a 
carriage return. 

Several of the menus will have a variable number of options depending on the state 
of the simulation. If a valid input file has not been loaded for example, the main menu 
will not have the Conduct Simulation or Continue commands available since they would 
be meaningless. 

The Conduct Simulation (option s) and Continue (option c) commands from the 
main menu can be followed by an output filename. If a filename 1s specified, output from 


the simulation 1s redirected from the screen to the specified file. 


M n 





3.4.2.2 Concatenating Commands 


SEPSIP allows one to execute an option in a submenu directly from the main menu 
by entering the character that executes the submenu followed by the desired character from 
that submenu. These two characters can be separated by spaces or tabs and can also be 
followed by whatever input text is required by the selected command. 

Examples: 
dd (displays device summary) 
fc /mit/yourname (changes the working directory) 


u p t.plot (executes plotting program with argument t.plot) 


3.4.2.3 Input Filename Specification 


In several of the options, the user 1s prompted for an input filename. Any existing 
file can be entered, including a path specification if required. If a default filename is 
offered, a carriage return will select the default. If no default filename is presented, a 
carriage return will terminate the command. Should SEPSIP be unable to open the file, 
another filename is prompted for. Entering ? as a filename results in the listing of the 
current directory. A q terminates the command. 


3.4.2.4 Output Filename Specification 


An Output filename can be specified forseveral commands. Any filename recognized 
as legal by the operating system may be used. If a default filename is offered, a carriage 
return will select the default. If no default filename is presented, or if the filename stdout 
is entered, a carriage retum will result in the file being listed on the screen. If for some 
reason, SEPSIP is unable to open the file, another filename is prompted for. Entering ? 


as a filename results in the listing of the current directory. A q terminates the command. 
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3.4.3 Command Summary 


This section lists all the commands available in SEPSIP. A more detailed explanation 


of the commands 1s provided in the following sections. 


c [file] Continue simulation 

d Switch to Display Data menu 

dc [dir] Change Working Directory 

dd Display Device Summary 

dD Display Device Data 

de Display Element Summary 

dE Display Element Data 

dn Display Network Summary 

dq Quit Display Data menu 

dw [file] Write Device Data File 

E Switch to Edit Simulation Parameters Menu 
ed Switch to Edit Display Variable list Menu 
eda Add Variable to Display Variable list 

edd Delete Variable from Display Variable list 
edq Quit Edit Display Variable list Menu 

ej Edit Jacobian Parameters 

eq Quit Edit Simulation Parameters Menu 
er Edit Reference Voltage Subnode Voltages 
et Edit Time Parameters 

f Switch to File Options Menu 

fd [file] Dump Simulation State 

fi [file] Save INITIALIZATION Section 

fI [file] Load INITIALIZATION Section 

fq Quit File Options Menu 

fs [file] Save SIMULATION Section 

fS [file] Load SIMULATION Section 

q Quit : Terminate SEPSIP program 

s [file] Conduct Simulation 

u Switch to Utility Menu 

ue [file] Execute EMACS text editor 

up [file] Execute Norplot Plotting Package 

u? Display Directory 

u% [cmd] Execute System Command 


u+ Perform Screendump to the default printer 
3.4.4 Main Menu 


This section describes all the commands available in SEPSIP. For each command. 
the format for executing it from the main menu is presented along with a description of the 


command. For executing a command within a submenu, the first letter should be omitted. 


۔ وہ ۔ 





3.4.4.1 c Continue 


Format: 
C 


c filename 


The Continue command is oniy available if a valid input file has been loaded and a 
simulation has already been conducted. Its purpose is to allow the simulation to continue 
without reinitializing any of the variables. To use this command though, tmax must be 
changed to a higher value that corresponds to the new desired ending time. 

If Continue is invoked without a filename, the results of the simulation are displayed 


on the screen, otherwise the results are written to the specified file. 


3.4.4.2 d Display Data 


Format: 
d 


d command 


Display Data presents a submenu with the following options: 


A cm کک ا‎ i EEUU E co Cie Fe e re MA i mm ce ee Së > سس‎ 
۰ , 1, 11 A heme em ee ec ce i me me mm SS SS s 
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3.4.4.2.1 dc Change Working Directory 


Format: 
dc 


dc directory 


This command changes the working directory for specifying both input and output 
files. If a directory name is not specified on the command line, the user is prompted for 
one. For systems operating under the UNIX operating system, this is the only method 
available since a cd command executed as a system call will not work.’ 


3.4.4.2.2 dd Display Device Summary 


Format: 


dd 


Display Device Summary lists the names of all the available devices. 


1 Under UNIX, when a system call is made from a program, a new shell ıs created for the 
specified command to be executed in. When the command terminates, the shell disappears. 
Therefore, 1f a cd command is executed, it will change the directory in the new shell and 
then terminate. The new shell will immediately disappear and control will pass back to the 
old shell whose working directory was never altered. 


00 





3.4.4.2.3 d D Display Device Data 


Format: 
dD 


dD device name 


Display Device Data provides detailed information about a particular device. If 
device nameis not specified, it will be prompted for. All ofthe variable names associated 


with device name are listed. 


3.4.4.2.4 d e Display Element Summary 


Format: 


de 


Display Element Summary is only available if a valid input file has been loaded. 
All of the defined elements are listed along with which devices they are associated with. 
If an element is not used in the network description, its entry is appended with 


i22 Not Used t2 





3.4.4.2.5 d E Display Element Data 


Format: 
dE 


dE element_name 


Display Element Data is only available if a valid input file has been loaded. If 
element_name is not specified, it is prompted for. All of the variables associated with 


element_name and their values are listed. 


O O O A AS A E A ES ES US CU CE CS cr cm cr cm cm ccm crm CHE GE ee i ce me ey cm es es A A mn ooo 
cm cr crm cr i rm س سد يس‎ rm emm cy cm cr me mr cr cm cm sr em ee En ہے‎ 


3.4.4.2.6 dn Display Network Summary 


Format: 


dn 


Display Network Summary is only available if a valid input file has been loaded. 
For each node, the constitutive subnodes and their attached variables are displayed. After 
all the data for a node has been presented, the user is prompted to enter a carriage return 
to continue. If aq is entered instead, the command is terminated. A b will result in the 


previous node being listed. 


3.4.4.2.7 d q Quit 
Format: 


dq 


Quit retums control back to the main menu. 


FP FP vr vn vn A س ل کس لے ل لے لا لا لا لت لے ل کک س ہج ل لے لے سے لے سا لے ل سے سے ل‎ vn mm mm cr cc س‎ vm e E pn o EE, A س ل‎ e س س س س س‎ 
mm cma سس‎ mem ل س س ل ل‎ A AA س س ہے‎ A س‎ A A A E mm emm A e e e A A A A A A A A A A A A A A A A A A AA A سا سس‎ i س‎ 
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3.4.4.2.8 d w Write Device Data File 


Format: 

dw 

dw device data filename 

Write Device Data File prints out all of the device data for all of the devices. If 
device data filename is not specified, the user is prompted forit. For a particular device, 


this command presents all the same information as Display Device Data 


AO‏ ہا 71$ E e E Se E Ce E e e mm EE e a a cc cr e E a a ee‏ سد E m. U E a mm‏ ر 1 iiL ool‏ کہ تسا 
O‏ ےھے کک ےے کک ہک > "اہ e, e, vm, e, emm, emm e mm, emm, ge emm, O es ce. cs cs E‏ سس عتك E l M‏ س س mc mm me‏ سد سے لے س rm, em rm e å‏ 


3.4.4.3e Edit Simulation Parameters 


Format: 
€ 


e command 


Edit Simulation Parameters presents a submenu forediting data from the simulation 
section of the input file. This command is only available if a valid input file has been 


loaded. 


mme, e e, Gamer. Ce حک ہے ہملس‎ A A A A A A A A KA A e A A PP A کہ‎ umo A e ee se ee cc o e pe pn rm VE "mm سک‎ GEO 
mn ` E, س‎ Le ل‎ AA A A ات کا دہ‎ E e سا مت‎ E A A کہ‎ Le A PA Y e e P e E E pn mn TEE Em A E A A Te ve A A A aM a Te emm e, EE mn (BEE. A A A e VE ت‎ e 
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3.4.4.3.1 ed Edit Display Variables 


Format: 
ed 


ed command 


Edit Display Variables presents a submenu for adding and subtracting variables 
from the display variable list. In addition to the submenu, all of the variables presently 
on the list are displayed. The values of the variables on this list are displayed during the 
simulation in increments of print_step as setin the input file or by Edit Time Parameters. 


-= an = ee o me me mm E Ve mm ve vm wm cr a e e ES ES e cm A ES E ve e e mmm em em mm GENS ce we pe ` 
OM ca— K— E CUN. ON ن‎ cs cs e. mms VE E demm vm, Sam mm کب‎ MO re E E nimmt E vm e سے‎ e ve re ée gg E. mm A cc ec C س‎ 


3.4.4.3.1.1a Add Display Variable 


Format: 
eda 
eda element name : external output variable 
eda element name : external input variable 


eda node name : voltage subnode name 


Add Display Variable adds a variable to the display variable list. External Input, 


External Output, and Voltage Subnodes may all be specified. 
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3.4.4.3.1.2 d Delete Display Variable 

Format: 
edd 
edd element_name : external_output_variable 
edd element name : external input variable 


edd node name : voltage subnode name 


Delete Display Variable deletes a variable presently on the display variable list. 


m. CL. A A GEM GEM s CMM s سس سسس سے سے کس سس سے ب س س سے سے کس‎ mm A A A A A A کک س‎ A A کہ کک‎ A A m m OR ee cm ce ål å‘ M å [l ‘M a nn 
e e س سے کے سے‎ a aÁ Á a mm E vn cr س م س سے سے سے س‎ cm cms cs A E E A ee A A Comm, e mm a A e rn e s ج‎ 


3.4.4.3.1.3 q Quit 


Format: 


edq 


Quit returns to the Edit Simulation Parameters submenu 
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3.4.4.3.2ej Edit Jacobian Parameters 


Format: 


ed) 


Edit Jacobian Parameters allows the user to change the following sımulation 
parameters: 
CONVERGE 
MAX ITERATION 
DELTA 
DELTA_MIN 
The user is prompted to enter a new value for each of these parameters. If a carriage 
return alone ıs entered, the default value is used. If a q is entered, the command is 


terminated. A b allows the previous variable to be changed. 


3.4.4.3.3 e q Quit 
Format: 


eq 


Quit returns control back to the main menu. 


T= 





3.4.4.3.4 er Edit Reference Voltage Subnode 


Format: 
er 
er node name : reference voltage subnode name 


er node name : reference voltage subnode name value 


Edit Reference Voltage Subnode allows the user to change the value a reference 
voltage subnode 1s set to. If the command is executed without specifying the subnode, a 
list of the reference voltage subnodes is provided before the user 1s prompted for the 


subnode name. 


nn m mn ` e A KA A A mm mm Á PP C MM لے لا کت کس لے س‎ ues me ms M A AA A AA m s ee C سی لے لے ت س‎ s Ms i A A A nn u A س سس وت‎ e کک‎ 
mm ` ` o کے ہے کے کت‎ ums کا جس طط ا ل‎ rn D ` e E) ` damen A A A A e Ce E Te E e E ل‎ e rc ل ل ا ل ل س ل‎ ms E س‎ e ms is ہے ا‎ 


3.4.4.3.5 et Edit Time Parameters 


Format: 


et 


Edit Time Parameters allows the user to change the following simulation 
parameters: 
TIME STEP 
TMIN 
TMAX 
PRINT STEP 
The user is prompted to enter a new value for each of these parameters. If a carriage 
return alone is entered, the default value is used. If a q is entered, the command is 


terminated. A b allows the previous variable to be changed. 
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3.4.4.4 f File Options 
Format: 
f 


f command 


File Options presents a submenu for reading and writing several different types of 


3.4.4.4.1 fd Dump Simulation State 


Format: 
fd 


fd filename 


Dump Simulation State prints to a file, the entire state of the simulation. Every 
variable for every element is listed along with the system Jacobian matrix and associated 
variables. While the file produced by this command may become very large, it 1s often 


the only way to find the cause of a simulation’s failure to converge. 
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3.4.4.4.2 f 1 Save INITIALIZATION Section 


Format: 
fi 


fi filename 


Save INITIALIZATION Section writes to a file, all of the current values of the 
input variables, state variables, external input variables, and voltage subnode volt- 
ages. This file can then be included in another input file to specify a starting point for 
further simulations. This command allows one to run a simulation until steady state has 
been achieved, save the initialization section, then conduct simulations to study the effects 


of a disturbance on the steady state solution. 


nn nn KA AA AA A AA AA کا‎ pm E KA ال لت کک‎ A A A A A A AA A سد درد‎ A A A A A e Ten en یل ا ل لک س سے کت فا‎ u 
OO A mm rm mn mm cm ee e vm mn emm ve e em سو سو ےد‎ A A AA A سال سا تھا‎ 


3.4.4.4.3 f I Load INITIALIZATION Section 
Format: 
fI 


fI filename 


Load INIITIALIZA TION Section loads from a file, the initial values of the input 
variables. state variables, external input variables, and voltage subnode voltages. 
The file must conform to the format specified in section 3.3.4. The easiest way to create 


this file 1s to use or edit a file created by the Save INITIALIZATION Section command. 


eee e ee A A AA VE XA A AA AS ل لے ل‎ Te e E WE E Fe VE ` Em mmm Em Er dm س‎ Fe rn E E Ep dE ھتہ ج‎ em mm, e i A EET 
e me A Fe e A rn mm دک ل عکہ ٠ک ن س ص-ط-۔ جک‎ mmm vm: vm mmm, mm vm emm me ee VE E وکہ‎ rn rm e A د‎ ` 
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3.4.4.4.4 f s Save SIMULATION Section 
Format: 
fs 


fs filename 


Save SIMULATION Section writes to a file, the SIMULATION Description 
section of the input file as described in section 3.3.5. If stdout is used as a filename, the 
SIMULATION Description section is listed on the screen. This is a fast way of seeing 


all the simulation variables at once. 


— e Te E e (meer: لے سے کک‎ mm ms a e ل لے س س م سے‎ CMM EMI i mn am mn mn mn mn ل ل‎ m A A A A ل‎ s ا سے ل ل‎ E ل ا سے ل س‎ s s 
e e re mm A A A لے لے ل‎ a ےھ سے س ااا‎ M ت ست ت‎ 


3.4.4.4.5fS Load SIMULATION Section 
Format: 
fS 


fS filename 


Load SIMULATION Section reads from a file, the SIMULATION Description 
section of the input file as described in section 3.3.5. Files created with the Save SIM- 


ULATION Section command can be directly loaded with this command. 


سیت کت A A A‏ س سے لے لے ل لے ست لت Ce e Te me E A Us GEM uos‏ لے لسا لے س سس س ل A no m m‏ ہے AA‏ مد سے ست ھک mc‏ سے س س لے ن لے س سے اا 
اس ےا س i‏ س س ڈو اس س e mm rm em me mr‏ س س س PPP‏ — 


3.4.4.5 q Quit 
Format: 


q 


Quit results in the termination of SEPSIP. Control 1s passed back to the operating 


system. 


cu 





3.4.4.6 s Conduct Simulation 


Format: 
S 


s filename 


Conduct Simulation starts the simulation. If a filename is not specified, the values 
of all of the variables on the display variables list are printed to the screen. If a filename 
is specified, the values of the variables are printed to the designated file. A period (.) is 
printed on the screen every time a line is printed to the file. This allows one to see that the 
simulation is actually proceeding and the program is not stuck in an infinite loop. 


3.4.4.7 u Utilities 


Format: 
u 


u command 


Utilities presents a submenu that is fundamentally different from the other menus in 
that it 1s entirely user defined. The file sepsip util.menu contains all the data required to 
create and execute a menu. Appendix D describes how to edit this file to add or delete 
menu items. The following commands are presently implemented on MIT's Project 


ATHENA. 


Lem vg ep me س‎ ce me me cr سجے‎ me mc cr mm cc ce cs cc cc cc cm ss ce س‎ ee س س س‎ 
wem vn vg, vg vn e e vn ve vn vn e vn vm vn vn e vm vn vn E ep vg wm, e, E ep vm vm vg E ep vg cr Cum Å cc cr س س سے س س س س س س س س‎ 
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3.4.4.7.1 ue Editor -> emacs 


Format: 
ue 


ue filename 


This command executes the emacs text editor. 


3.4.4.7.2 up Plotting -> Norplot 
Format: 


up 


up filename 


Norplot is a simple X-Window oriented plotting package that allows for the input 


file to have multiple columns of data. 


3.4.4.7.3u ? List Directory 
Format: 
u? 


u? directory path 


This command lists the current directory or the directory specified. 


we 





3.4.4.7.4 u % Execute System Command 


Format: 
u% 
u% command 
This command allows for any system command to be executed (with the exception 


of cd ın UNIX). 


A A A A A A A Com AA A Y m uuum CONUS GENRE GIL, ec mc cc cc es ce ey em EEE, > e ee 
— ت‎ re rm mm emm, vm e e ھکد‎ emm emm emm, e ت س‎ em, emm em e emm em emm vm, om e em, emm emm emm emm em e vm, um vm, o A om ce ee es e eS کے‎ 


3.4.4.7.5 u + Screendump to default printer 


Format: 
u+ 
u+-h 
u+ -Pprinter 


u+ -Pprinter -h 


This commmand produces hardcopy of an X-Window on the default printer or on 


the printer specified by the -P option. The -h option suppresses the printing of the header 


امس a eS Se‏ س س س A AA Ss SS emm vn rm vm mm cm ms E‏ ا دہ .ا رت کلک E em‏ ل ل re‏ س س ل ل Te (mn E e‏ ا ل س ل س 
D e e rm e mn rm‏ ہے Ce, dm GENERE‏ سو Con‏ سے س my mm me ccm cm A O A A A APP PF cm‏ 
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3.5 Special Considerations 
3.5.1 Designing the Network 


Intelligently designing the network can improve the quality and numerical stability of 
the sımulations performed. One must always remember that the mathematical repre- 
sentations for devices like inductors and capacitors are only idealized approximations of 
the physical devices. Consequently, while we can physically stop the current ın an ınductor 
instantaneously, a simulation using an ideal inductor will fail because the voltage drop across 
it will become infinite. Here are a few techniques that can eliminate many of the problems 
of this sort: 

* All inductors should have a parallel resistance to provide a path for the flyback current to 
flow and thereby limit the maximum voltage drop across the inductor 

* Similarly, all capacitors should have a series resistance to limit the maximum current flow. 

* A node connecting two switches in series should also have a resistance going to ground 
(or across one of the switches) to prevent a floating voltage. 


3.5.2 Selection of Time Increments 


Choosing an appropriate time increment is very important for ensuring an accurate 
simulation. If trapezoidal integration is used, a time increment that 1s much greater than 
the associated time consant for a variable will result in that variable oscillating and probably 
going unstable. For this case, the Euler Backward method works better since the mode ıs 
assumed to have been driven to zero for the entire time increment. 


d. ^ 
AA sf 
dt ٦ 


Trapezoidal Integration 





dt \{ 1 
Dr 58 ۰۰ 0 


dt ÈT 
Ar) 
"0" MAT 


Euler Backwards 


pare ۲ al? +A) 


dt >t 
xX =-TA 

If the time step is made extremely small, the amount of computer time required to 
conduct the simulation becomes intolerably long with the undesired side effect of a loss of 
accuracy. When the time step is extremely small, round off error in the numerical calculations 
become a significant proportion of the corrections applied to the input variables. Over time, 
these errors can grow and give incorrect results. 

When making the time step smaller, the CONVERGE limit must also be decreased. 
Otherwise, the solution for the first time increment when applied to the second time 
increment will result in an implicit error that remains within the CONVERGE limit. Thus. 
the result of the first time increment becomes the solution for the second time increment. 
This process is repeated for the following time increments with the net result that none of 
the variables deviate from their initial values. 

For systems of nonlinear equations, choosing the optimal time increment is not easy 
to do in the general case. Usually one can get an acceptable value by trying to identify the 
fastest mode and using a time increment somewhat smaller than the associated time constant. 


Some experimentation is usuallv required to determine if a given choice is appropriate. 
D i £ prop 
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3.5.3 Using the SIMULATION File 


Since virtually all of the SIMULATION Section of the input file can be edited from 
within SEPSIP. it is a good idea to make the entire SIMULATION section an include file. 
This allows one to directly save any edited parameters with the Save SIMULATION 
Section (fs) command. The next time the input file is loaded, all of the edited simulation 
parameters will also be loaded. 


3.5.4 Using the INITIAL File 


Properly using INITIAL files can greatly reduce the computational time required to 
conduct a simulation under certain circumstances. A typical problem may be to study the 
transient response of a system originally in a steady state condition that experiences some 
disturbance. Achieving the initial steady state condition may require a lot of simulation 
time due to slow "start up" time constants. To eliminate the overhead time required by the 
system to achieve steady state in each simulation, the INTITIAL file allows one to conduct 
an undisturbed simulation once, save the steady state solution in the INITIAL file, and use 
that INITIAL file as the starting point for all further simulation work. 

3.6 Adding DEVICE Descriptions 


Adding a Device description to the list of available devices requires a fair amount of 
effort. One or more functions must be written and compiled in the C programming language 
and linked with the other SEPSIP routines. Additionally, one include file (penner.h) and a 


device data file must be edited. Details for this procedure are contained in Appendix B. 
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CHAPTER 4 
DEVELOPMENT OF SHIPBOARD 
ELECTRICAL COMPONENT MODELS 


ge 





4.1 Transmission Line Model 


The transmission line model included in SEPSIP consists of a series combination of a 
resistor (R) and an inductor (L). The inductor also has another resistor (R,) in parallel with 
it to account for leakage resistance. R, also helps numerically when the transmission line is 
attached to a switch that opens. If R, were not included and the inductor current were forced 
tO Zero immediately, the voltage drop across the inductor would be infinite. R, provides a 
path for the inductor current to flow and thereby allow a finite voltage drop. Since all physical 
inductors have an associated leakage resistance, the inclusion of R, better reflects the actual 
transmission line charactenstics. 


Figure 4.1-1 Transmission Line 
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If the transmission line is excited with a sinusoidal current, the effective resistance and 


inductance of the transmission line 1s given by: 


] 
R-=SRFRi/ rR% ] 
eff 1 ES wi [1] 
ex. 
EX ONE 
Lg=L| Té [2 
(RJ 


The Model contains the following definitions 
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Parameters 


R Resistance 

Je Inductance 

Ke Parallel Resistance for Inductor 
Input Variables 

ET Terminal 0 Phase A Voltage 

X Terminal 0 Phase B Voltage 

Voc Terminal 0 Phase C Voltage 

d Terminal 1 Phase A Voltage 

MS Terminal 1 Phase B Voltage 

Vic Terminal 1 Phaxe C Voltage 

p Terminal 0 Phase A Current 

ks Terminal 0 Phase B Current 

Nhe. Terminal 0 Phase C Current 

lia Terminal 1 Phase A Current 

tn Terminal 1 Phase B Current 

7 Terminal 1 Phase C Current 
State Variables 

٦ Phase A Voltage 

Vu Phase B Voltage 

۷ Phase C Voltage 

jr Phase A Current 

IS Phase B Current 

i Phase C Current 

Implicit Variables 

I, Phase A Integrator 

IW Phase B Integrator 

E Phase C Integrator 


Equations 
Va = Ka Voa 
Inn 


Vere 2) 0c 


b E 5 Ur m loa) 
l 


l, = > Uu fon, 


Ae 
^ ED = lo.) 


Re 





If R, and E are both not zero, the following equations hold: 





EU IR [9] 
Yi, 7 (v, LEI [10] 
v,, 2 (v, - iR) [11] 
V 
KE 12] 
1 
V 
ELS r [13] 
] 
Ee 
L-i- 14 
e 7 R [ ] 


an A a 
a | 2 
I, iu س‎ [16] 


di Viet Vigor 
ES ee 1 


if R, or L are either zero, the following equations are used: 


],-v,-iR [18] 
JT TR [19] 
] 2v, —iR [20] 
Comments 


The implementation of the transmission line model is contained inthe file f t line _3p.c 


listed in APPENDIX C. 
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4.2 Resistive - Reactive Load Model 


The resistive - reactive load model included in SEPSIP consists of a three phase wye 
connected impedance. Each phase of the load consists of a resistor (R,) in parallel with a 
series combination of another resistor (R) and an inductance (L). R, helps numerically when 
the load 1s attached to a switch by providing a path for the inductive current to flow and 
thereby prevent the voltage drop across the inductor becoming infinite, 


Figure 4.2-1 Resistive Reactive Load Model 





Parameters 
R Resistance (ohms) 
L Inductance (henries) 
R, Parallel Resistance (ohms) 


Input Variables 


vo Phase A Terminal Voltage 

E Phase B Terminal Voltage 

SEA Phase C Terminal Voltage 

SE Center Point Terminal Voltage 

7 Phase A Current 

7 Phase B Current 

2 Phase C Current 

La Center Point Current 
State Variables 

V, Phase A Voltage 

Vb Phase B Voltage 

Ve Phase C Voltage 





۲ Phase A Current 

lp Phase B Current 

S Phase C Current 

Implicit Variables 

I, Phase A Integrator 

I Phase B Integrator 

je Phase C Integrator 
I Sum of Currents 


Defining Equations 
Bra = lon T los t lo, 
ee 
lie = lon + loa + loy 

Va S Voa — Von 
Vp — Vob 7 Yos 


Dr SC I KS Yan 


; _ loa hg 
L = 2 
EL Ib 
l, — > 

= loc lic 
d = > 


Is MA سا‎ 


If L = 0 or R, = 0 the following Equations are used: 


RR 


Son 
= 
I,=v,-UR, 
EA 


Otherwise, the following Equations are used: 


oe 


H 


[10] 


[11] 
[12] 
[13] 


[14] 





du 
L T Zzy-iR 
SE 
B T du 1,۸ 
d i-i) 
bech +=) -iR 
dt 
Va — Va old 


[, =1,- ee 


Kı 


e Ve ES Vo old dt Ke T Yo old‏ کک 
Lulu Dr ena‏ 
Comments‏ 


Vp — Vb old 6 Int 


[15] 


[17] 


[18] 


[19] 


The implementation of the resistive - reactive load model is contained in the file 


f rl wye.c listed in APPENDIX C. 
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4.3 Synchronous Machine Model 

Synchronous machines are used as both generators and motors onboard ships. The 
synchronous machine device included in SEPSIP is based on the shielding constraint model 
provided in [16]. This model uses the standard per unit parameters normally provided by 
generator manufacturers. All calculations are performed in the per unit system and employ 
Park's transformation to remove many of the time dependencies and thereby improve the 


numerical solution.! 


Figure 4.3-1 Synchronous Machine Model 


Vf 





Field 


ir | synchronous 






Transform 
machine 
e model Mechanical 
Equations Te 
Park's 
Transform ۷۶۸ 
Om 4m 8 
OVYOn SL Ma 
Parameters 
2 Synchronous Reactance (PU) 
x Negative Sequence Reactance (PU) 
x, Transient Reactance (PU) 
er D-axis Subtransient Reactance (PU) 
XN Q-axis Subtransient Reactance (PU) 
x Armature Leakage Reactance (PU) 
D Transient Open Circuit Time Constant (sec) 
20 D-axis Subtransient OC Time Constant (sec) 
5 Q-axis Subtransient OC Time Constant (sec) 
7 Armature Time Constant 
I Field Current for no load rated voltage (amps) 
H Inertia Constant (sec) 
p: Pole Pairs 


] Park's Transformation expresses all of the voltages and currents in the reference frame of 
the rotor. The stationary reference frame is referred to as the abc frame while the trans- 
formed reference frame is called the dqo frame. Under normal operation, the dqo variables 
are not a function of the rotor angle. 
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Oo e 
yo 


Cope. 
& 3 کے‎ : 


[SiS 


ssum 


م سم 


fsum 


- 5 


Base frequency (rad/sec) 


Base Phase Voltage (0 to peak) 
Base Power (watts) 


Input Variables 


Phase A voltage 
Phase B voltage 
Phase C voltage 
Neutral voltage 
Phase A current 
Phase B current 
Phase C current 
Terminal 0 Field winding voltage 
Terminal 1 Field winding voltage 
Terminal 0 Field winding current 
Terminal 1 Field winding current 
Electrical rotor angle (radians) 
Mechanical frequency (rad/sec) 


Mechanical acceleration (rad/sec^) 
Torque [turbine +] (Nm) 
Internal Variable : q axis flux 
Internal Variable : d axis flux 


State Variables 


Electrical Angle state (rad) 
Mechanical frequency state (rad/sec) 
Mechanical acceleration state (rad/sec^) 
D axis flux [PU] 

Q axis flux [PU] 

Voltage behind transient reactance [PU] 


Voltage behind Q axis subtransient reactance [PU] 
Voltage behind D axis subtransient reactance [PU] 


Derivative of D axis flux 
Derivative of Q axis flux 


Derivative of voltage behind transient reactance 
Derivative of voltage behind Q subtransient reactance 
Derivative of voltage behind D subtransient reactance 


Implicit Variables 


Sum of input phase currents 
Sum of field currents 
neutral voltage 
D axis flux eqaution 
Q axis flux equation 
Q axis subtransient equation 
D axis subtransient equation 
transient equation 


GE 





I Torg balance 


torg : E 

E integrating frequency 

a integrating frequency acceleration 
Equations 


Calculate Base Quantities 


I _2P hs 
SE 





I ND m mes zt) 





Va E Fi 
ور‎ 

Pr; 

T,. = Ppt bs 
C. 


Calculate Phase voltages 
Va T Voa — Von 
DUE 


Ve = Voe ج5‎ Von 


Perform Park's Transformation 


2 
cos(@) co - 3 co + 2r) 





a2 27 27٦ 
T=-—|-—sin(8) -—sin| @—-— —sin 8 +— 
1 1 i 
2 2 2 
la lo, 
I =l. 
Tan 
m loc 
Va Voa 
1 T 7 
= V. I | Vg, 
Ur Voc 


[1] 


[2] 


[3] 


[9] 


[10] 





Calculate other variables 








zo ٣ 
fd 21 
PB 
۶ ۶ ۴ 
ا‎ V 
PB 
x Zë 
T =*T 
aq x ^^" ad 
d 
Aad meee 
2 
ES Mad 
age d 
E 
gl T ’ 
Obs do 
2 
x Xad 
wt 
DEC 
0ي‎ 
a= € 2H 
Aa "Aa 


Calculate states 


_ fa 
Ca G 
+ 
۶۶ _ we 
Ge 


"o Mts 
Ee 


1 . 7 
ge Xu Xy — Krallya + Kae, 


q x, 
Y = Y, 
Y, =¥, 


Calculate Derivatives 


mo 


[16] 


[17] 


[18] 














۱ 1 Xa 7 
> dt “T 7 TE 


97 
ad To, 














Ece Ole, Fey) 


Perform Modified Trapezoidal Integration 


To determine Ti a kae aand L 


[=x -X,4— (dt) (0.6y +0.4y,,) 


Calculate Current Implicit Variables 


Calculate Mechanical Variables 


=] 


ssum 0 
u log + " 
fsum 7 
Lp 


T = Val, = V, la 


E ECH 
ےگ‎ = 
Ops 
E Ke p ES Ten, = 


ge 





[50] 


[31] 


[32] 


[33] 


[34] 


[35] 


[36] 





(Leu [38] 

On, = O, [39] 

Ee Ba BEE cop) [40] 

Ons Oms ou — (dt) (0.60,,, + 0.40.5 014) [41]‏ = ےآ 
Comments‏ 


The implementation of the synchronous machine model is contained in the file 
f synch mach.c which is listed in APPENDIX C. 
The following parameters describe a 2000 KW generator typical of those found on U.S. 


Navy destroyers: [10] 


Xi 1.38 PU 
Xq 0.26 PU 
x 025 PU 
E 0.171 PU 
Xo 017] PU 
= 021 PU 
ps 2.9 sec 
Te 0.0 sec 
GES 0.0 sec 
s 0.09954 sec 
bz 38.5 amps 
H آ0‎ sec 
Pr - 
(e 376.90 rad/sec 
NS 367.4235 volts 
po 2500000 watts 


The subtransient time constants are set to zero becuase the author was unable to obtain 
their true values from unclassified sources. The time constants are typically fast and 


approximating them as zero does not introduce serious errors. 


-90-. 





4.4 Speed Governor 

The speed governor model included in SEPSIP is based on the mechanical speed 
governor on the 2000 KW synchronous steam turbine generator found on an older U.S. Navy 
submarine. This model 1s based on one developed by the author as part of a term project for 
an electrical engineering machinery course [10] and is a greatly reduced version of the model 


developed by Dalton [6]. 


Figure 4.4-1 Speed Governor 





Parameters 

Opio Zero Order Frequency (rad/sec) 

Das Droop Factor Coefficient (rad/sec-inch) 
Dn PU Torque Coefficient (rad/sec) 

Tas Base Torque (Nm) 

T Time Constant (sec) 

Input Variables 
C», Mechanical frequency (rad/sec) 
T Torque (Nm) 


S Droop Factor (inches) 
State Variables 


m Ordered Torque (PU) 
7 Actual Torque (PU) 
Implicit Variables 
I Implicit Variable 


oe 





Equations 


1 
T = ——— (0 -0,-0,$ 
m order (DIT aps ( m nlo ds ) 
Tam = Tp +B O, 
7 و‎ 
mpu — Tee 
dT 1 


mpu 
EET 
dt T ( m order ne 


E 
I, 7 I, = ee = (dt) رکا‎ 7 por 


mpu mpu 


Comments 


-057, 


Imo 


2022) 


[1] 


[2] 


[3] 


[4] 


[5] 


Equation [1] provides the steady state value for the torque corresponding to the present 


rotor speed. Equations [2] and [3] calculate the actual torque being delivered in the present 


time increment. Equation [4] describes the dynamics of the speed governor as a simple first 


order system. The differential equation is solved using trapezoidal integration. While this 


is a simple model, it does provide results consistent with the data provided in ref [6]. 


The Droop Factors is in reality the Primary Amplifier Fulcrum Displacement. On older 


submarines, a stepper motor attached to a set screw is used to adjust this displacement until 


the desired frequency is obtained for a desired load. A normal range for s falls between 0 


and .5 inches. The parameter values are: 
o. = 374.72 
o. e 63.38 
(Da, = 20.15 


EE 


E 


The above values are for a single pole pair generator, for atwo pole pair machine, the 


first three parameters should be halved. 





4.5 Voltage Regulator Model 


The voltage regulator model included in SEPSIP is a simple first order transfer function 
between the terminal voltage error and field voltage of a synchronous machine. The terminal 
voltage is measured by subtracting the mean value of all three phases from the voltages of 
phases A and B. These values are fitted to two cosine voltages that are phase shifted by 120°. 
The derived terminal voltage is divided by the desired terminal voltage and subtracted from 
1. This error voltage is subjected to a first order transfer function that produces a signal 
voltage that 1s added to 1 and multiplied by the nominal field winding voltage. 

If the field voltage 1s driven above or below specified clipping levels, the regulator 
maintains the field at the clipping voltage. Typically the lower limit for the field voltage is 
about 0 volts while the maximum is around 1.5 to 2 times the field voltage required to maintain 
the terminal voltage under full load. 

This model does not represent any specific voltage regulator. However, since the 
response of many voltage regulators 1s dominated by one eigenvalue, approximating the 
dynamics by a first order lag is not a bad assumption. The clipping action of the regulator 
ensures that the field voltage does not exceed reasonable bounds. 


Figure 4.5-1 Voltage Regulator 


Transfer 
Function 





nose 





Parameters 


MS Nominal Field winding Voltage 
Per Unit Error Gain 
T Voltage Regulator Time Constant (sec) 
Mar Maximum limit for field voltage 
NT Minimum limit for field voltage (clipping) 
Input Variables 
Voa Phase A voltage 
Vi Phase B voltage 
M Phase C voltage 
um Field Winding Terminal 0 voltage 
Yn Field Winding Terminal 1 voltage 
Es Field Winding Terminal 0 current 
lH Field Winding Terminal 1 current 
MO Desired Voltage (neutral to line peak) 
WM», Reference Frequency (rad/sec) 
V, Measured Voltage (internal variable) 
Y Measured Phase (internal variable) 
State Variables 
Ver Per unit error ın voltage 
Vile Per unit correction to field voltage 
0 Phase (radians) 
e Clipping State 


Implicit Variables 


I, voltmeter Phase A equation 
voltmeter Phase B equation 
Sum of Currents 
Transfer Function Equation 


Equations 


Calculate the terminal voltage 


1 
, mmm 200 * ۶ 
v, = 3 9 ۹۹9٦ 
E = I. E Ys 
y, — Yg, — V 


n 


v=v E 


C Oc n 


Y= Yaa t O, (dt) 


E 


[4a 





1 A t 


(v, — v, cos(0 * y)) 
Es 


S 


ae 0 — y, cose +Y- =) 
` Us 


Calculate the input and output to the transfer function 


feo 

ل 
err‏ 
Vos‏ 


ml Vor -1 


V fübs 
If Caip og = O, the regulator is not clipping: 


GA 


m d 
vr dt sig err 
sg Dres) a dr(.6(v,, —K = D) as Av sig old e) 
Vid = Wer Vor 
otherwise the regulator is clipping 
. V min = (vif m Voy) 
D ا‎ 
clip _old n Ve 
V inar — (Vir — Vor) 
: fmax 1f of 
De a nn 
clip old n Ur 
Tes old 2:47] 4)۷ sıg _old m ren) = .6K Vad 
VII =~ —— ل ل‎ 
i T,, + .6dt 


Ve Vet 1)V os 
The sum of the field currents should be zero 
on > los SS - 


See 1f should clip during the next time increment 


Noc 


[7] 


[5] 


[9] 


[10] 


[11] 


[12] 


[13] 


[14] 


[15] 


[16] 





E Ee ]17[ 

else if v, S Venn then Cay, = =1 [18] 

E [19] 
Comments 


The implementation of the voltage regulator model is contained in the file f_volt_reg.c 


listed in APPENDIX C. 


E 
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4.6 Induction Motor Model 


The Induction Motor Device included in SEPSIP is based on a model of a "squirrel 
cage" motor presented by Krause [17]. This model assumes the stator consists of three 
windings and that the rotor can be represented by three additional windings. 


Figure 4.6-1 Induction Motor 





Mutual Inductances Not Shown 


Parameters 
R, Stator Resistance (ohms) 
X. Stator Inductance (ohms) 
Ke Rotor Inductance (reflected to Stator) (ohms) 
R,' Rotor Resistance (reflected to Stator) (ohms) 
J Moment of Inertia (Kg-m^) 
(Do, Base Frequency (rad/sec) 
D, Pole Pairs 


Windage Torque Factor (Nm-sec) 


None 





5 
~ 


d d d 


aa ore 


ta 


e- £ 


ken 


Input Variables 


Phase A voltage 
Phase B voltage 
Phase C voltage 
Phase A current 
Phase B current 
Phase C current 
Electrical Rotor Angle (radians) 
Mechanical Frequency (rad/sec) 
Mechanical Acceleration (rad/sec”) 
Neutral voltage 
Phase A rotor current 
Phase B rotor current 
Phase C rotor current 


State Variables 


Phase A stator flux 
Phase B stator flux 
Phase C stator flux 
Phase A stator flux derivative 
Phase B stator flux derivative 
Phase C stator flux derivative 
Phase A rotor flux 


Phase B rotor flux 
Phase C rotor flux 


Phase A rotor flux derivative 
Phase B rotor flux derivative 
Phase C rotor flux derivative 
Electrical Rotor Angle (rad) 


Mechanical Speed (rad/sec) 
Mechanical Acceleration (rad/sec) 


Implicit Variables 


Phase A stator flux equation 
Phase B stator flux equation 
Phase C stator flux equation 
Phase A rotor flux equation 
Phase B rotor flux equation 
Phase C rotor flux equation 
Sum of Stator Currents 
Frequency Integration 
Acceleration Integration 
Torque equation 
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Equations 


Calculate Inductances 








Xi 
La, = 
Obs 
, X, 
L, 5 
Ops 
X 
M=— 
Dir, 
2 
L, 22M 
3 


Lu = Li d: o 
Las 
L,, = 0 


La; = D cos(0) 


5 
ELE coda T 3 


2 
L,=L,. cos = 2z) 


Calculate Fluxes 


EE 


ál*ra 


+ L; 1 In + Ban 


A 7 Loloa SR L, dos sis E Ub E zb: Entro T e 


E O ECD TE A t Lanle 


EE ee eL 


SEA 


EE 


EE Sg 


۔ وو ۔ 


ra 


ra 


de EAM. 


2 EE 


EE وو‎ 


[7] 


[8] 


[9] 


[10] 


[11] 
[12] 
[15] 
[14] 
[15] 
[16] 





Calculate Flux Derivatives 
Da = Vo, PE Von = K do 


N o 


DES VRR, 


SC 


Pe 

ID) --R, ba 
Po 

D, --R, lp 
— “~~ ps 

D, = R, be 


Perform Trapezoidal Integration 


dt 
7 Asa = +۷ ni a 2: ER eod) 


dt 
I, = is — Ao — a (DaT Do ota) 


dt 
I. — A, m lu ES a KE og e) 


; , {at 
He = A 7 Aa old bé a 2 E) 


Ue ut 

s AD um E (Dum Te 
} df 

de = A, = jr 3 a (D,. F زی طط‎ 


NEE 


Calculate Torque and Mechanical variables 


. ‘ lp i rc . e e i ra ‘ : Gs Lu . 
2 = BR loa 5 75 => oe En ہہ را‎ ais loc D 73 5 sin(0) EE 


N 5! Dee I ie) Hs E n le) KR by Gs == NO) cos(9)} 
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[24] 


[25] 


[26] 


[27] 


[28] 


[29] 


[50] 





0-0 
wW, = 0 
w, = 0 


dt 
W x: 0, = D A dii 7 kue T C, (2) 


dta e 
Wp = C2, 5 O, old DE 4 (0, Se O, oid) 


Comments 


[31] 
[32] 
[33] 


[34] 


[35] 


[36] 


The implementation of the induction motor model is contained in the fue f_ind_motor.c 


listed in APPENDIX C. 
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4.7 Three Phase Switch Model 


The Three Phase Switch model allows the user to control switches for all three phases 
with one external input variable. When the external input variable commands the switches 
to close, all three phase switches close at once. When commanded to open however, the 
individual phase switches remain closed until a zero crossing occurs. 

Since a switch changes the configuration of the network, one must ensure that both 
configurations are defined properly and have a voltage reference. In particular, switches 
should not be connected in series without providing some means (such as a resistor) to define 
the voltage of the node connecting the two switches. 


Figure 4.7-1 Three Phase Switch 


l oa lia 
pe Me 
Noe | 
lor Cap 
— GE Mu 
Jo 
loc 
2 ¿He 
e ic 
Input Variables 
M Terminal 0 Phase A Voltage 
Vie Terminal 0 Phase B Voltage 
N Terminal 0 Phase C Voltage 
M Terminal 1 Phase A Voltage 
ven Terminal 1 Phase B Voltage 
Vic Terminal 1 Phase C Voltage 
E Terminal 0 Phase A Current 
Is Terminal 0 Phase B Current 
i Terminal 0 Phase C Current 
ES Terminal 1 Phase A Current 
i Terminal 1 Phase B Current 
i Terminal 1 Phase C Current 
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“0008008 3 


سم سر اسل 
ET t»‏ 


eet quot 


9 


State Variables 


Phase A state 

Phase B state 

Phase C state 
Phase A current 
Phase B current 
Phase C current 


Implicit 
Phase A switch 
Phase B switch 
Phase C switch 
Phase A current sum 


Phase B current sum 
Phase C current sum 


External Input 


Switch Condition 
Q=on 
l= off 


Equations 
Ka " Viz m Voa 
EN FO 
y = Vie E Voc 

le , 
EC 

a 2 la Oa 

Pm > lee) 

we: 

d = 2 D Ke ا‎ 

If the Switch ıs commanded closed: 

$,=5,=5S,=1 


If the Switch 1s commanded opened: 
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[6] 


[7] 





Sa = da ei 
Sb — Sp old 
no = SET 


Calculate the implicit variables: 
fs, =1 then/, =v, elsef,, z i, 
if 5, 2 1 then /,, = v, else 7, = Z, 


ifs.=1then/, =v, else /,. =/, 


la = loa + lia 
la = lo + ii 
7 = loc E lic 


If the Switch is commanded opened, Check for Zero Crossing: 


ILL <O then s, = 0 else s, =1 


If i,t, oq SO then s, =O else s, = 1 


ifii, „g SO then s, = 0 else s, = 1 


GC oid m 


Comments 


[5] 
[9] 
[10] 


[11] 
[12] 
[13] 
[14] 
[15] 
[16] 


[17] 
[18] 
[19] 


The implementation of the three phase switch is contained in the file f switch 3p.c 


contained in APPENDIX C. 


Note that the switch does not open until a zero crossing has occurred. This may lead 


to problems when the derivative of the current is very large and the current overshoots zero 


by a large amount. 
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4.8 Circuit Breaker Model 


The circuit breaker model included in SEPSIP simulates a three phase circuit breaker 
that is tripped either by an overcurrent or ‘manually’ by the operator. The square of the 
magnitude of the current is determined through a forgetting factor f which is multiplied by 
the square of the old value of the current magnitude and added to (1 - f) times the square of 
the present current value. The magnitude of the current is compared to a specified limit, if 
the limit has been exceeded for a certain amount of time, the breaker is commanded to open. 
The breaker can also be commanded to open by an external input. Once commanded to open, 
the switch for each phase remains closed untu a zero crossing occurs. 


Figure 4.8-1 Circuit Breaker 


P.‏ یی 
G "0 Me‏ : 
M Oe |‏ 
lop m‏ 
E‏ > 
2 
loc 1‏ 
۳۴ے 
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Each phase of the circuit breaker is modelled as a state machine having seven states 


defined by: 


Circuit Breaker States‏ 4.8-2 تا 


Exemal Cn 


open open open 
closed open open 


open open closed 
closed open closed 

open closed open 
closed closed open 
closed closed closed 
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Parameters 


f RMS Forgetting Factor 
I Current Trip value (amps rms) 
[E Current Trip Minimum Time (sec) 

Input Variables 
Vos Terminal 0 Phase A Voltage 
Vor Terminal 0 Phase B Voltage 
Vor Terminal 0 Phase C Voltage 
x Terminal 1 Phase A Voltage 
MID Terminal 1 Phase B Voltage 
Vio Terminal 1 Phase C Voltage 
7 Terminal 0 Phase A Current 
I Terminal O Phase B Current 
Lë Terminal O Phase C Current 
Im Terminal 1 Phase A Current 
0 Terminal 1 Phase B Current 
lie Terminal 1 Phase C Current 
States 

Sa Phase A switch state 
S, Phase B switch state 
S. Phase C switch state 
L Phase A current 
7 Phase B current 
i Phase C current 
M Phase A rms current 
lee Phase B rms current 
je Phase C rms current 
Ge Phase A overcurrent time 
Ee Phase B overcurrent time 
E Phase C overcurrent time 

External Input Variables 
Switch External Switch 
Implicit Variables 
Ia Phase A switch equation 
lee Phase B switch equation 
جا‎ Phase C switch equation 
IE Phase A current sum 
[^ Phase B current sum 
IL Phase C current sum 


Equations 


E = at m Voa 


boc Voe 


H — 9 — 7 
bee TU 
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E 4 


2 
1 

i, = > Uu — fol [5] 
] 

a = 2 EG ps اج‎ [6] 


Perform the following State Transformation: 


Figure 4.8-3 Breaker Transform Table 1 
Old State Switch on Switch off 





— 
Be 
o 





I 


رہ 


t tis oa. OF مہا‎ 01415 greater than t,,;, 


ia_old> 


use the following transition table 


Figure 4.8-4 Breaker Transform Table 2 


0 
] 
2 
3 
A 
3 
E 





The Implicit variables are defined by 


if s_ is odd then/_ =v, else/_ =i, [7] 
if s, is odd then / „= v, else /,=1, [8] 
if s, is odd then 7, z v, else 7, z i, [9] 


ie 





Me E log 7 hr [10] 


le = lo tle [11] 
Le i: [12] 


Look For Zero Crossing 


If the product of a phase current's present and old values 
1s less than or equal to zero, perform this transformation: 


Figure 4.8-5 Breaker Transform Table 3 
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Calculate RMS Currents 

ave = NO -PIZ + fidae oid [13] 
NO i ot [14] 
N ae [15] 


Update Overcurrent Time counters 


ME ENI 1, ar Else, = 6 [16] 

f i,,2i,;, thent, —ft, og + at else 1, = Û [17] 

E 400 2156700 [18] 
Comments 


The implementation of the three phase circuit breaker model is contained in the file 


f_breaker_3p.c listed in APPENDIX C. 


DER 





CHAPTER 5 
SIMULATION RESULTS 


A description of SEPSIP would be incomplete without several examples of simulations 
conducted with the program. This chapter contains the input files and results of seven sim- 
ulations that demonstrate the features and capabilities of SEPSIP. The first two simulations 
show the start up transients for two different induction motors. Because the simulations are 
very similar, only slight modifications to the input files of the first simulation were required 
to generate the second simulation. The remaining simulations involve the response of one or 
two synchronous generators to changing loads. The third simulation loads a single synchronous 
generator with a .4 Per Unit load for a 4 second period and then removes the load. The response 
of the voltage regulator and speed governor to the application and removal of the load are 
clearly shown. The nexttwo simulations use identical network topologiesto study a generator's 
response to two and three phase shorts. The input files for these simulations were modified 
from the third simulation in a very short time. The final two simulations demonstrate the 


ability of SEPSIP to simulate the dynamics of multiple generator systems. 
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5.150 HP Induction Motor Start Up 


This simulation shows the startup transients for a 50 HP Induction motor. The network 


consists of a simple three phase generator directly attached to the induction motor. Each 


phase of the generator consists of a sinusoidal source in series with a parallel combination 


of a resistor and an inductor. Figure 5.1-1 shows the structure of the network. 


ref:Vref 


gen_synch_3p 


ref:frea 







ind_motor 


Figure 5.1-1 50 HP Induction Motor 


Mech:theta 
Mech:wm 


to 
uper Mech:wm. dt 


The parameters for the induction motor are from Krause [17]. The Element description 


include file for this simulation 1s shown in figure 5.1-2 


Figure 5.1-2 t50.elm : Element Description File 


t50.elm 
Nezbert H. Doerry 


t 
! 
! 
! This file defines the 
! 
' 


! The following are the 
I described on page 190 
۱ 


Maa motor motor 


Rs 0807 
ms 02 
XM ف0‎ 6 
xlr prime 302 
IT Brime 228 
J 16627 
wile ع ”3د‎ , 9 

es 2 

ES 0.0 


aunminduction motor. 


elements for a simple 3 phase generator attached 


characteristics of a 50 
of Krause’s ANALYSIS OF 
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HP motor 
ELECTRIC MACHINERY 





Note that the series induction for the generator is very small. This was done to simulate 
a voltage bus that was almost infinite in nature. (The voltage drop due to the synchronous 
reactance 1s negligible). 

The effect of setting B to zero for the induction motor is to ignore the windage losses. 
Since Krause also ignored windage losses in his analysis, the results from this simulation can 
be directly compared. 


Figure 5.1-3 t50.net : Network Description File 


SO, net. 


MNorbert H. Doerry 


NETWORK 


t 
NODE and 
233g = 0 — gen:iOn 
rv:vg — 0 - gen:vOn 
end 
NODE C 
07 = gen:v0a = motor:v0a 
3ھ‎ = Gen:i10a = motor:i0a 
end 
NODE Mech 
v:theta - motor:theta 
viwm = motor:wm 
vum dt = motor:wm dt 
end 
NODE ref 
pyra = motor:ira 
VEILED = MOEOE IES 
arc =meter:ire 
MVO = motor:vOn 
rv:Vref = gen: Vmag 
rv:freq = 60.0 = gen: freq 
end 
! 
Figure 5.1-4 t50.init : Initialization File 
mee oO. init 


P Norbert H. Doerry 


INITIALIZE 


END 
NODE VOLTAGE INITIALIZATION 
eV 375.6 
C:v b -187.8 
mv c -187.8 
END ` 
EXTERNEL INPUTS INITIALIZATION 
motor: Tmech 0 0 
END 
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Figure 5.1-5 t50.sim : Simulation File 


IESO”. Sim 
EMorbert H. Doerry 
! 


SIMULATION 


! 
DISFLAY 
motor:RPM 
motor :HP 
motor:Te 
Sen Ila 
Sen :Ib 
Seo) lc 
gen :Va 
mee :ira 
peto :irb 
Gee tire 
END 
! 
EIS STEP 0.00025 
TMIN 0 
TMAX 200 
ERENT STEP 0.0010 
DELTA ` 0.01 


DELTA MIN 0.01 
CONVERGE le-10 
MAX ITERATION 50 
REFERENCE 
15 ذ‎ 
V:ref:Vref or SnG 
END 
t 
EXTERNAL INPUTS 


END 
! 


The above files are synthesized into a single input file with the following format: 


Figure 5.1-6 t50.all : Input File 


mee oO, all 


Norbert H. Doerry 
! 


5۶۰۰-1۱0046 t50.elm 
Enclude t50.net 
Mnclude t50.init 
257۰3۱0736 t50.sim 
! 

The above format for the input file was used for all the simulations conducted for this 
thesis. In the following sections, the include files will be referred to as separate entities even 
though they only have meaning when organized in the manner shown in figure 5.1-6. SEPSIP 
does not require the organization of the input file in this manner, but this convention greatly 
eases the task of creating and running simulations. 

The results of the simulation are shown in figures 5.1-7 through 5.1-10. Note that for 


this motor, the machine reaches its steady state speed after only .6 seconds. Astypically seen 





in many induction machines of this size, the transient currents during the startup are con- 
siderably greater than the final no load current. The rotor current also shows the expected 
characteristic decreasing frequency as the rotor approaches synchronous speed. These results 


are all identical to the figures shown in reference [17). 


50 BP Induction Motor: 


50 BF induction Motor: 


Fig 5.1-7 RPM vs Time 
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Fig 5.1-9 Stator Current vs Time 
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50 BF Induction Motor: 


Fig 5.1-8 Te vs RPM 
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Fig 5.1-10 Rotor Current vs Time 


50 BP Induction Motor: Ira vs t 


600 700 
500 600 
400 500 
400 
300 
D t 3 
200 | | = 
t | | j 200 t 
100 2 1 Y » 
g | 100 1 
o ' a : 
Ai o Ai 
-100 e | = 
0۷ -100 ` 
-200 3 TT z 
u d | IP -200 e 
= | 
300 ul) -300 
| | 
-400 | -400 
-500 -500 
-€00 -600 





25 


00 HP Induction Motor Start Up 


This simulation shows the startup transients for a 500 HP Induction motor. The network 


consists of a simple three phase generator directly attached to the induction motor and 1s 


identical to the network used for the 50 HP Induction motor in the previous section. Figure 


5.2-] shows the structure of the network. 


Figure 5.2-1 500 HP Induction Motor 






EN 


Mech:theta 
Mech:wm 


Mech:wm_dt 






ref:Vref 













ind_motor 
motor 


gen_synch_3p 






ref:frea 


meee le 

= 6 Ee 
a. ja. 

= < 5 

e 08 o 8 


The parameters for the induction motor are from Krause [17]. The Element description 


q.1:J23J 
BU Jou 


include file for this simulation is shown in figure 5.2-2 


! 
l 
! 
d 
: 


E500.elm 


Figure 5.2-2 t500.elm : Element Description File 


Nerbert H. Doerry 


This file defines the elements for a simple 3 phase generator attached 
Eran induction motor. 


gen synch 3p gen 
phase a 0.0 


! 
! 
: 


~ 


لد 


020001 
R 1000 
end 


The following are the characteristics of a 500 HP motor 
described on page 190 of Frause's ANALYSIS OF ELECTRIC MACHINERY 


ind motor motor 
Rs 


YM 
E prime 
Er pzime 


o On ZC 


Te 


x 


L 


(n 


Cn 


€ ا 
4.02 
de‏ 


ty 


ON Or 


ER 





y E 


Note that the series induction for the generator 1s very small. This was done for the 
same reasons discussed in the 50 HP induction motor example. 

Setting B to zero results once again with the induction motor dynamics ignoring the 
windage losses. Since Krause also ignored windage losses in his analysis, the results from 
this simulation can be directly compared. 


Figure 5.2-3 t500.net : Network Description File 


٠۰5370 6+ 
! Norbert H. Doerry 
! 


NETWORK 


! 
NOLE and 
rv:ig = 0 = gen:i0n 
movg = D e gen:vOn 
end 
NODE C 
pov SG gen:vOa = motor:v0a 
EL = gen:i0a = motor:10a 
end 
NODE Mech 
vitheta = motor:theta 
vis wm = motor:wm 
viwm dt = motor:wm dt 
end 
NODE ref 
gira = motor:ira 
Erb = 0066 ظط‎ 
Dre = motor: ire 
wie v0 = motor: v0n 
rv:Vref = gen: Vmag 
rv:freq = 60.0 = gen: freq 
end 
! 
Figure 5.2-4 t500.init : Initialization File 
239500 2 


Norbert H. Doerry 


l 
l 
INTTTELIZE 


END 
NODE VOLTAGE INITIALIZATION 
Gey 1877.9 
Gey 5 038.95 
Sv c -938.95 
END 
EXTERNAL INPUTS INITIALIZATION 
motor:Tmech OMO 
END 


SINS: 





Figure 5.2-5 t500.sim : Simulation File 


NEE e 2 m 
Norbert H. Doerry 
! 


SIMULATION 
۱ 


DISPLAY 
motor:RPM 
MOE OE: HP 
motor: Te 


en la 
gen  :1b 
nen: ic 
gen :Va 
ger ‘ira 
met :irb 
perc rC 
END 
۱ e 
MMe STEP 0.00025 
TMIN 0 
TMAX 25 
PRINT STEP 0.0010 
DELTA ` 0.01 


DELTA MIN 0.01 
CONVERGE le-10 
MAX ITERATION 50 
REFERENCE 

IR Cri 

Vsref: Vref 187 1,9 


END 
! 


EXTERNAL INPUTS 
END 


! 

The results of the simulation are shown in figures 5.2-6 through 5.2-9. Note that for 
this motor, the machine reaches its steady state speed after about 1.4 seconds. As typically 
seen in many induction machines of this size, the transient currents during the startup are 
considerably larger than the final no load current. The large startup currents indicate that a 
motor controller should be used during start up. The rotor current also shows the expected 
characteristic decreasing frequency as the rotor approaches synchronous speed. Another 
typical characteristic of large induction motors is the speed overshoot shown in figures 5.2-6 


and 5.2-7. Note that the 50 HP machine did not have an overshoot. These results are all 


identical to the figures shown in reference [17]. 
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Fig 5.2-6 RPM vs Time 
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Fig 5.2-8 Stator Current vs Time 
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Fig 5.2-7 Te vs RPM 


500 BP Induction Motor: Te vs REM 
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Fig 5.2-9 Rotor Current vs Time 


$00 BP Induction Motor: Ira vs t 
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5.3 Synchronous Generator: Switched Load 


This simulation demonstrates the transients associated with loading an initially 
unloaded synchronous generator to forty percent of ıtsrated load. The synchronous generator 
is modelled on a2000 KW unit found on recent construction guided missile destroyers (DDG). 
Speed regulation is performed by a droop governor based on the type used on an older 
submarine.’ The voltage regulator is modelled as a first order lag transfer function with 
output clipping. While most voltage regulators have more complicated transfer functions, 
this model provides reasonable results under normal operating conditions. The load is a wye 
connected impedance with a .999 power factor. Figure 5.3-1 shows the structure of the 
network: 


Figure 5.3-1 Synchronous Generator: Switched Load 


speed_reg 


Mecb:» 
gov 
See 
e/a zl a & 
E 8 ٢ 
EP Rt 


Ca 
synch_mach switch. 3p [Bv b | rl wye 





sgen sw Bv_e load 
ref:v0 ref:lon 
= 
2 Nech:wbs 
Vrec-vbe 
volt reg Va 
۷ Vee oh 


I A droop governor has a torque speed characteristic that has a negative sloop. This 
implies that as the load on the generator increases, the frequency decreases. Another tvpe 
of speed regulator, the isosynchronous governor, maintains a constant speed regardless of 
the load. In isolated operation, most modern generators operate in the isosynchronous 
mode. When two or more generators are paralleled however, the droop mode provides a 
inherently stable method for sharing the load. Paralleled isosynchronous generators require 
special circuitry to ensure one generator does not take all of the load. 
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The parameters for the generator were obtained from reference [10]. The voltage 
regulator dynamıcs were extracted from data provided by references [2] and [18]. Speed 
governor dynamics are from references [6] and [10]. The parameters are all listed in figure 
ھ2‎ 2 


Figure 5.3-2 v.elm : Element Description File 


!v.elm 

Norbert H. Doerry 
! 

synch mach sgen 


zaq 1.38 

xq 0226 

zd p 0225 

xd pp DIT 

SCH pp “77 

zal 01 ! This is an approzimation 

Tao p 2.9 

Edo pp 0.0 "NOS Gala for subtranusient T.C. 
Tqe_PP 0.0 

Tad 0.09954 

den] 38.5 ! Field Current for no load rated terminal voltage 
H 0 

PP 2 

wbs 276.99 

ab 567.4235 ! 450 volts rms line to line 
Pbs 2 6 ! 2000 KW at .8 Power Factor 
end 


rl wye load 
EE. 2 
E» 5e-6 
R1 1000 
end 

| 

Ewiteh 3p sw 
end 


Beeea reg gov 


wnlo MENS 

wds Dg ce 

wdTepu 210207 

TBS 13262.6 

Tg 043275 

B 0 ! damping is ignored 
end 


! 
Meee reg Vv reg 
Vidbs 52.56 ! Field Voltage for rated noload terminal voltage 
K ZEE WIT anster function gain 
vr 0-5 ! Principle time constant 
! 
! 


Emin 0 Minimum field voltage 
maz 20 Mazimum field voltage (clipping) 
end 
Figure 5.3-3 v.net : Network Description File 
en 


- 
æ 
SETE. Doerzy 


v3:v —- sgen:vOa = sw:vOa = v reg:vOa 
i3:i = sgen:i0a = sw:i0a 
end 

WODE B 
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WIST = sw:vla = 
ford = sw:ila = 
end 

NODE Mech 
v:theta = sgen 
12980 wbs = 377 
x wm = sgen: 
v:wm dt - sgen 
rv:s = 0.04 
end 

NODE ref 
pre = sgen 
mci g = sgen 
Ee d = sgen 
rv:vO = 0.0 = 
ll = 
ey: Lon = 0.0 = 
end 

NODE field 
E eru = U0 = 
VETV = 
mie toi = 
Bee ft = 
end 

NÉDE Vreg 
mo. Ss = 367.4 
EL = 
ph = 
end 

! 

ive anit 


¡Norbert H. Doerry 


INITIALIZE 


Meg: 10f 8 
:۶ئ۲‎ 222 28 
sgen:iOf Ec 
sgen:ilf 28 
sgen:psi d di 
sgen:s wm d 
sgen:eq p 1 
sgen:eq pp 1 
END 

NODE VOLTAGE INITI 
2 کہ‎ 648 
C:v_b rein] 
AS zs 
Mech:theta 0 
Mech:wm dt 0 
ref:Te . 0 
Ber.Psig 0 
met:Psi d 1 
ela: Ev S25 
Beer zt 367.4 
W=es:ph 0 
END 

Sir 

E bert H. Doerry 

۱ 

SIMULATION 

DISPLAY 
Civ_b 


: Te 
۰ ٦ 
Saa 


1 01 
dead: i104 


«theta 


v reg:wbs 
gov:wm 


wm 


:wm dt 


gov:s 


gov: lm 


~ 


sgén: v0n 
20+ 8 8 
von 


vOf 
Vit 
WOOF 
quf 


sgen: vof 
sgen:vlf 
sgen:i0f 
sgen:ilf 


v reg: 
v reg: 
vi Ted 
v reg: 


2 v reg:vbs 


e 
v reg:phase 


Figure 5.3-4 v.init : Initialization File 


299 
-499 
.499 
9 


80.5 


ALZSATIN 


6 


Figure 5.3-5 v.sim : Simulation File 





Civic 
= n:jepu 
sgen:vd 
sgen:vg 
sgen:id 
sgen:ig 
sgen:ifd 
Ereg:vt 
field: fv 
ref: Te 
Mech : wm 
Wsad: Ia 
end 
! 
IE STEP O 
TMIN 0 
TMAX 8 
PRINT STEP O 
DELTA 0 
DELTA MIN 0.01 
CONVERGE le-1 
MAX ITERATION 50 
REFERENCE 
O: 
END 
EXTERNAL INPUTS 
Sweowitch 0 0 
EN Switch 1 0.01 
er Switch 0 4.0 
END 


| The results of the simulation are shown in figures 5.3-6 through 5.3-11. Figure 5.3-6 
shows the speed regulation of the governor. Notice the droop in frequency caused by the 
addition of the load (2.2% in this case). The frequency transient dies out within 4 seconds 
on both the application and removal of the load. The terminal voltage has interesting char- 
acteristics on both the addition and the removal of the load. On the application of the load, 
the terminal voltage experiences a negative voltage spike as the current builds up in the load 
inductance. On removal of the load, the network is in asymmetrical operation as each phase 
Switch opens on the zero crossing of the current. Notice that the relatively high gain on the 
voltage regulator results in a small steady state error in the terminal voltage magnitude. Figure 
5.3-8 shows the field voltage as generated by the voltage regulator. Even with the large 


change in load and large voltage regulator gain, the field voltage magnitude remains within 


the clipping limits. 
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Figure 5.3-6 RPM vs Time 
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Figure 5.3-8 Field Voltage vs Time 
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Figure 5.3-7 Terminal Voltage vs Time 
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Figure 5.3-10 id and iq vs Time 
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Figure 5.3-11 vd and vq vs Time 
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5.4 Synchronous Generator: Two Phase Fault 


An electrical system casualty that can easily occur on shipboard systems 1s a two phase 
fault where two of the three lines of the distribution system are shorted together. This problem 
1s difficult to solve analytically due to the asymmetrical nature of the resulting network. 
Figure 5.4-1 shows the SEPSIP network congifuration used to solve this problem numerically. 
The network is a modification of the network used in section 5.3. The transmission line 
element was added to prevent potential problems with the voltage regulator model. The 
voltage regulator model calculates the terminal voltage of the synchronous machine assuming 
a nonzero balanced voltage. If the terminal voltage of all three phases goes to zero, there 1s 
the possibity of the voltage regulator generating a singular Jacobian matrix. The transmission 
line assures a slightly positive voltage magnitude. 


Figure 5.4-1 Synchronous Generator: Two Phase Fault 


speed_reg 
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Figure 5.4-2 w.elm: Element Description File 


E A 
-_ ES م٦‎ 
Mesbert E. Doerry 


synch mach sgen 


mec 12238 
xq (2 
Ip ص00‎ 
zd pp 086 





za pp O 
zal D. 
ido p 2.9 
Tdo_pp 0.0 
Tgo pp DD 
Tad 0.09954 
080801801 BERS 
E O0 651 
pp 2.0 
wbs 6 9 
Vab 3152077425 
Fbs 2.5e6 
end 
rl wye load 
O. 2 
L 25e-6 
R1 1000 
end 
Ee 3p tline 
pee OOOO] 
720.0 
SEO. D 
end 
switch sw ab 
end E 
switch sw bc 
end = 
Speed reg gov 
wnlo eg 
wds 31.69 
Eege ED. OD 
TBS 92 26 
To 9 ظ7‎ 
8 0 
end 
Dgcoreg v reg 
bS: 52.56 
K 200 
a DES 
Maman 0 
Vimax 120 
end 
! 
! w.net 
MM c-bert H. Doerry 
NODE C 
Ev scen:vOa = tline: 
l1l 1 = sgen:i0Oa = tline: 
end 
NODE B 
way = tline:vla = load: 
ED - tline:vlb - load: 
viv c = tline:vlc = load: 
2 = tline:ila = load: 
mes = tline:ilb = load: 
Nc =tline:jie = load: 
end 
NODE Mech 
Theta = sgen:theta 
ES = 277 = v rec:wbs 
2 91 = sgen:wm = gcv 
Sewn GL = sgen:wm dt 
ESOS = ,04 = gov:s 
end 
NODE ref 
=: Te = sgen:Te = gc 
w:Psi q ~ soen و‎ 


Figure 5.4-3 w.net: Network Description File 


vOa 
iOa 


vOa 
vob 
vOc 
704 
SOB 
iOc 


33 2 


"0. 9999 


sw ab:vO 
sw ab:vl 
sw bc:vl 
sw ab:iO 
sw ab:il 
Sw botil 


sw 0 


ص۵پ ي- 





psPsi d = sgen:Psi d 
E0 - 0 s sgen:vOn ` 
1l =~ load:20n 
moon - 0 = load:vOn 
end 
NODE field 
Eo = 0.0 = v reg:vOf = sgen:vOf 
uy - yv reg: yli = sgen:v1f 
IgGl = Ee DE 
neri - VU IFET ll Ssgen:ilf 
end B 
NODE Vreg 
rv:vbs = 367.42 - v reg:vbs 
wave =v reg:vt 35 
v:ph = v_reg:phase 
end 
Figure 5.4-4 w.init: Initialization File 
INN it 


NN rbert H. Doerry 
1 


ENITIALIZE 


! 
۶۶۰۹ 2 41.26 
DNreg:ilf 241526 
v reg:vt 2 5 
v reg:Verr 0.0034541 
v reg:Vsig 0.069814 
fee gs theta 012289 
gov:Tm_order 06 
gov: Tmpu 0.41204 
sgen:iOa ENDO) و‎ 
sgen:iOb 1442.6 
sgen:i0c 25478 
sgen:i0f 201526 
sgen:ilf 41220 
Sens theta SO 96 
sgen:s wm 1847149 
sgen:wm dt 0.048494 
sgen:psi_d 1.0147 
sgen:psi q 70710438 
sgen:eq p 1025 
sgen:eq pp 1.0218 
sgen:ed_pp 0.035722 
۶361۰68 psi d 20:000676)73 
sgen:d psi q ٭ 8مھ“‎ +7277۶ 
221297 ۰ء‎ >٤ 
sgen:d eq pp 0 
sgen:d_ed pp O 
Aline: i0a OS 
۲۰۱176 ط0‎ -1442.6 
۰۱۹66 10 254.8 
tline:ila -6 5 
۶۱۱۰۰٠6 ٠ ط1‎ 1442.6 
pIne:ilc 254.8 
۶ S165 
Seine: ib 1442.6 
Eline:ic 54.8 
load:i0a du uy 5 
load:i0b >2 6 
6ذ9‎ 300 =254.8 
Saa va EE 
2936 en 7208.53 
Ee 2905927 
3 8 1697.5 
oad: ib =1442 6 
3۰4:30 - 20 6 
END 


EC 





NODE VOLTAGE INITIALIZATION 


pev 3390449 
ev b -288.53 
C:v c -50.957 
B:v 339.49 
EEN 5 ESS 
B:v c mo 
Mech:theta -0.38396 
Mech :wm 184.49 
Mech:wm dt 0.048494 
Es tte 5464.7 
Meters. GQ 2 
Res: Esi d 2+ +7 
field:fv 20.229 
mcg: 360,15 
Vreg:ph =o ee 7 
END 


EXTERNAL INPUTS INITIALIZATION 
sw ab:switch 0 
sw bc:switch 0 
END 


Figure 5.4-5 w2.sim: Simulation File 


tw2.sim 
' 


SIMULATION 

! 

DISPLAY 
GEV 
Ev b 
Bv c 
sgen:Tepu 
sgen:vd 
sgen:vg 
sgen:id 
sgen:iq 
sgen:ifd 
Pregive 
1ے 3ت‎ 
ref:Te 
Mech :wm 
Sad: la 
END 

! 

ESTEE 

TMIN 

TMAX 

PRINT STEF 

DELTA 201 

DELTA MIN EO 

CONVERGE 1e-10 

MAX ITERATION 50 

REFERENCE 
Me: 1 
END 

EXTERNAL INPUTS 
SW ab:switch 1 
ey ab:switch  O 
END 


200025 


SE 
02 


OO OE GOO 


Ef 
Ge 


in in 


The results of the simulation are shown in figures 5.4-6 through 5.4-11. Notice that 
the terminal voltage oscillates during the fault due to the method by which the voltage regulator 


determines the rms voltage. Figure 5.4-6 shows a high frequency oscillation of the generator 


Move 





rotor during the fault. The field voltage clips at the maximum level which causes the terminal 


voltage to drop in magnitude during the fault. After the fault clears, the generator returns to 


the steady state condition within about three seconds. 


Figure 5.4-6 RPM vs Time 
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Figure 5.4-8 vd and vq vs Time 
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Figure 5.4-7 Torque PU vs Time 
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Figure 5.4-10 Line Voltage 


(SYNCH MACHINE) Terminal Voltage (rms line) 





- 129 - 


Figure 5.4-11 Field Voltage 
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5.5 Synchronous Generator: Three Phase Fault 


The previous section simulated a two phase fault. This simulation shows the transient 


response of the synchronous generator due to a symmetrical three phase fault. The network 


is identical to the one used in section 5.4. The only change in the input file was the addition 


of two entries ın the 


external input queue of the Simulation File. 


Figure 5.5-1 Synchronous Generator: Three Phase Fault 
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Figure 5.5-2 w3.sim: Simulation File 
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ELINT STEP 0.002 
DELTA 0.01 
DEDTA MIN 0.01 
CONVERGE le-10 
MAX ITERATION 50 
REFERENCE 
جا‎ 
END 
EXTERNAL INPUTS 
sw ab:switch 
sw bc:switch 
sw ab:switch 
sw bc:switch 
END 


ویر ہہ 
KA kA OO OCH‏ 
pg a‏ * 
ې ې ی ی 


The results of the simulation are shown in figures 5.5-3 through 5.5-8. Initially, the 
speed of the generator increases due to the sudden loss of load. This speed is controlled 
however, by the dynamics of the speed governor. During the short, the line voltage drops 
almost to zero. The voltage regulator responds to this by increasing the field voltage until 
clipping occurs at the preset value of 120 volts. The field voltage stays at this level well after 
the fault clears and until the line voltage approaches its reference. The torque characteristic 


1s the typical response expected during a three phase fault. 


Figure 5.5-3 RPM vs Time Figure 5.5-4 Torque PU vs Time 
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Figure 5.5-5 vdand vg vs Time 
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Figure 5.5-7 Line Voltage 
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Figure 5.5-6 id and iq vs Time 
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Figure 5.5-8 Field Voltage 
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5.6 Paralleled Synchronous Generators: Switched Load 


Shipboard generators often operate paralleled with one another. This simulation shows 
the transient effects on two identical generators that are connected in parallel and subjected 
to a .4 per unit load for 4 seconds. The generators and load are identical to those used in 
section 5.3. Figure 5.6-1 shows the network structure. The transmission line element was 
inserted in parallel with the generator paralleling switch to prevent a singular system Jacobian 
matrix when the switch is opened. Without the transmission line, there would be two 
independent circuits when the switches are open and only one independent circuit with the 
switches closed. The problem stems from the requirement for one reference voltage subnode 
and one reference current subnode for each independent circuit. Adding a transmission line 
ensures there is always only one independent circuit. By assigning a large resistance to the 
transmission line, its effect on the solution is negligible. 


Figure 5.6-1 Paralleled Synchronous Generators 
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Figure 5.6-2 x.elm : Element Description File 
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Net bert H. Doerry 
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synch mach sgen a 
xd o 1.38 
py CE 
EG ت‎ O25 

- ^ 
NC TD (oor 

— + 
za pr 017 
ت‎ l omi 
TOS- p 2.9 
Tao pp 0.0 
Bec Dp Do 


- 133 - 





mad 
0 ٣ 
H 

PP 

wbs 
Vab 
Pbs 


end 
! 


09 4 


2-3 b 
008 
2 
376.99 
SON: 4A5 
2.5e6 


synch mach sgen b 


Sg 
Ead p 
ES pp 
-—q PP 
el 
Tao p 
Tdo pp 
Tqo_pp 
Tad 
Ifnl 
H 
PP 
wbs 
Vdb 
Pbs 
end 

1 

speed reg 
wnlo 
was 
wdTepu 
TBS 
Tg 
B 
end 

! 

speed reg 
wnlo 
wds 
wdTepu 
TBS 
Tg 
B 


end 
۱ 


1.38 
00265 


gov b 
187.36 
31.69 
-10.07 
132€2.6 
02 
0.0 


Volt reg v reg a 


Vidbs 
K 
er 
Vimax 
0+40 rn 
end 
! 


92.56 
20.0 
O15 
120 
0 


p reg v rec b 


V£dbs 52,5 
K 2-00 
BNT OE LS 
Wma 120 
Vfmin 0 
end 

! 

eve lcad 
EC a2 
mo == € 
El 1000 
end 

! 

switch 3p sw ld 
end E 

switch 3p sw gen 
end 





! 
DEUIDe Sp tline 
R 100000 
RJ 0 
m oO 
end 


Figure 5.6-3 x.net : Network Description File 


net 

1 

NETWORK 

! 

NODE C 
Sume v 


sgen b:v0a sw_gen:v0a tline:v0a v reg b:vOa 


ales; sgen b:i0a sw gen:i0a tline:i0a 
end 5 
NODE B 
VS:V = sw ld:vla = load:v0a 
SS — sw ld:ila = load:i0a 
end 
NODE A 
WEY = sgen a:v0a = sw l1d:v0a = sw gen:vla = tline:vla = v reg a:vDa 
i3:i = sgen_a:i0a = sw_ld:i0a = sw _gen:ila = tline:ila DENM 
end 
NODE Mech a 
E theta = sgen a:theta 
rv:wbs = 377 = v reg a:wbs 
V iwm — Sgen a:Wm - gov a:wm 
viwm dt - sgen a:wm dt = 
IS 0.04 = gov a:zs 
end 7 
NODE Mech b 
v:theta = sgen b:theta 
rv:wbs = 377 = v reg b:wbs 
viwm = sgen_b:wm = gov_a:wm 
v:wm dt = sgen b:wm dt 
as = 0.04 = gov_b:s = 
end 
NODE ref a 
v:Te > Sgen ailê = gov 22 Im 
5ط بت‎ 1۹ 5-> 7075 q 
v:Psi d = sgen a:Psi d 
mero = 0.0 = sgen a:vOn ` 
end 
NODE ref b 
v:Te = sgen b:Te = gov b:Tm 
5ئ‎ q = sgen b:Psi q 7 
5ظط :تب‎ 1 d = sgen b:Psi d 
SUYO = 0.0 = sgen b:v0n 
end n 
MODE ref ld 
pl] - load:iOn 
Egon = 0.0 - load:vOn 
end 
Mere field a 
rv:fov = 0.0 = v reg a:vOf = sgen a:vDf 
2 iv = v reg a:vlf = sgen_a:vlf 
7۶1.۰61 ے‎ v reg a:i0f = sgen a:i0f 
II = Te ail = sgen a:ilt 
end E 
tee Lé 5 
E22 270.0 = v req b:iv0í = Soen E:v0£ 
Ev S= v reg b:iv1f£ = sgen b:vlf 
Dr fgi = v reg b:iOf = SGen B:10E 
mfi = Mes Bell > sgen_»:11£ 
end B~ 
NODE Vreg a 
E bS = 367.42 = vıreg a,vbs 





OA 
sph 
end 
NODE Vreg b 
rvivbs = 
E 
eph 
end 


y reg avt 
v reg a:phase 


367.42 = v reg b:vbs 
v reg b:vt 
۰۰٢ئ‎ ط٣ ظ7‎ 6 


Figure 5.6-4 x.init : Initialization File 


ا نوم 

INITIALIZE 
v reg a:i0f du 
v reg a:ilf -38. 
sgen_a:i0a 0 
sgen a:i0b 0 
sgen a:i0c 0 
sgen a:i0f -38.499 
sgen a:ilf 38.499 
sgen a:s theta 0.0 
saen a:s wm 188.5 
sgen a:s wm dt 
sgen a:psi d 
sgen a:psi q 
sgen a:eq p 
sgen_a:eq pp 
ESen a:ed pr 
gov a:Tm order 
gov a:Tmpu 


Gom 
LO 50 
iO O 


OO OO kA kä kA نتر ن‎ O 


seg b:iOf Seo] 
٣٣۶٣٦٤۶ -38.499 
egen b:i0a 0 
sgen b:i0b 0 
sgen b:iOc 0 
sgen b:i0f 9وی تچ‎ 
sgen b:ilf 38.499 
sgen b:s theta 0.0 
sgen b:s wm 182.5 
sgen b:s wm dt 
sgen b:psi d 
sgen b:psi q 
seen b:eq p 
sgen b:eq pp 
sgen b:ed pp 
BHov o b:Im order 
E: b: Tmpu 

END 


OOrPrEF OH O 


t 


NODE VOLTAGE INITIALIZATON 

c 57 
-183. 
-183. 
967 
-183. 
Ss =) 62. 
Mech a:theta 0 
Mech a:wm dt 0 
E B TEES 


7 
D 


PPPOOC 
RSS 
D 0 

~J] ل‎ -] -J D 


e 
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X 
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Q 
Bg 
m 
0 Z 
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m w| 


tyt Ir? | ee 
O. 4 
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thit K H 
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H- dc 
( Kh th th 
e [n0 ۷۹ 


< 
H 
M 
E 
LL, D 
fv | .. 
fv 
2 
qt IET H- be 
E 
Lu 
Oy Gn 
DOS Joe © 
O Ww 


Weg a: 
Mech p:theta 
Mech biwm dt 
Mech b:wm 


"O 
EN 


2 
CO 
in 
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t 


met b:Te 

€ bB:PSi q 
765165 225 d 
field b:fv 
Mesa b:vt 
Peg b:ph 
END 


Peter NAL INPUTS INITIALIZATION 


sw ld:Switch 0 
sw gen:Switch O 


END 


٥۰2 0 


SIMULATION 


t 


BISPLAY 


t 


BM STEP 


H 0.00025 
TMIN 0 
E E 
PRINT STEP 0.002 
DELTA آ0‎ 
DELTA MIN 901 
CONVERGE le-10 
MAX ITERATION 50 
FEFERENCE 

T:A:i 
END 


t 


TERNAL INPUTS 
t 


AV 

A:v b 
Bev c 

sgen a:Tepu 
sgen a:vd 
Egen a:vq 
sgen a:id 
sgen a:iq 
sgen a:ifd 
Vreg a:vt 
meld a: fv 
ref a:Te 
Mech a:wm 
Tead: Ia 
sgen_b:Tepu 
sgen b:vd 
sgen b:vq 
sgen b:id 
sgen b:iq 
sgen b:ifd 
Vreg b:vt 
Bela b:fvy 
ref b:Te 
Mech b:wm 
END -. 


Sw gen:Switch 1 0.004 


Sila: Exit ok 


0 
1 
0 


“> OO 
CONI 


i 


Figure 5.6-5 x2.sim : Simulation File 


UL 





The results of the simulation are shown in figures 5.6-6 through 5.6-11. Since the 
generators are always ın parallel when the load switches on and off, the response is similar 
to the results ın section 5.3 but with smaller deviations due to the addition of the second 
generator. 


Figure 5.6-6 RPM vs Time Figure 5.6-7 Terminal Voltage vs Time 
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Figure 5.6-10 id and iq vs Time 
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Figure 5.6-11 vd and vq vs Time 
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5.7 Paralleled Svnchronous Generators: Switched Load 


Shipboard generators often operate paralleled with one another. This simulation shows 
the transient effects on two identical generators that are connected in parallel and subjected 
to a .4 per unit load for 4 seconds. After the 4 seconds, one of the generators is detached 
from the load. The generators and load are identical to those used in section 5.6. Figure 
5.7-] shows the network structure which is identical to the structure in the previous section. 


Figure 5.7-1 Paralleled Synchronous Generators 
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The input file for this simulation is identical to the input file described ın section 5.6 
with the exception of minor changes to the simulation file. 


Figure 5.7-2 x3.sim : Simulation File 
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sgen b:ifd 
Vreg b:vt 
field b:fv 
ref b:Te 
Mech b:wm 
END 
t 
TIME STEP 
TMIN 
TMAX 
ERINT STEP 
DELTA oA 
DELTA_MIN > Oal 
CONVERGE le-10 
MAX ITERATION 50 
REFERENCE 
IRA: 1 
END 
۱ 


EZTERNAT INPUTS 
! 


100025 


.002 


OO Oo OO 


sw gen:Switch 0 0.0 
sw gen:Switch 1 0.004 
sw ld:Switch 0 0.0 
sw@eid:Switch 1 0.01 
sw gen:Switch O 4.0 


END 


The results of the simulation are shown in figures 5.7-3 through 5.7-8. For the first 
four seconds, the simulation is identical to the previous simulation. When the switch con- 
necting the two generators opens however, the two generators have different transient 
responses as they attain their new steady state conditions. Figure 5.7-3 clearly shows the 


effect of the droop charactenstic of the speed governor. 


Figure 5.7-3 RPM vs Time Figure 5.7-4 Terminal Voltage vs Time 
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Figure 5.7-5 Field Voltage vs Time 
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Figure 5.7-7 id and iq vs Time 
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Figure 5.7-6 Tepu vs Time 
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Figure 5.7-8 vd and vq vs Time 
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CHAPTER 6 
CONCLUSIONS 
6.1 Assessment of SEPSIP 


In its present form, SEPSIP ıs useful for analyzing simple and moderately complex 
electrical networks. Since the time required for a simulation is proportional to the cubic of 
the order of the system (Gaussian Elimination), large simulations require an unreasonable 
amount of time. Careful design of the network to minimize the system order can help tre- 
mendously in reducing the execution time of SEPSIP. Other possible methods of improving 
the speed of SEPSIP include running the program on a faster computer and making simple 
changes to the program. The following section provides details on several options for 
mercasine SEPSIP's speed. 

The decision to use SEPSIP or a general simulation language such as ACSL for the 
simulation of shipboard systems depends on what exactly is desired to be modeled. If the 
desire is to simulate the respose of a new type of device, ACSL may be superior. Writing 
robust device driver routines for SEPSIP that are fast, stable and accurate can be difficult 
and time intensive. Creating the device models on ACSL should normally require less time 
since physically writing and compiling code 1s not required. Once the device models have 
been created however, the advantage shifts greatly to SEPSIP. SEPSIP's built in provisions 
for organizing and interconnecting a number of devices into a network are far superior to the 
capabilities resident in ACSL. ACSL is not really designed to handle network architectures 
and forcing it to do so results in large unmanageable input files that are hard to debug. In 
short, ACSL is better at modeling individual devices while SEPSIP is far superior in orga- 


nizing models into networks. 
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6.2 Future Improvements 


SEPSIP, like any other computer program, will never be completed. There will always 
be a number of possible improvements that only take time and effort to impliment. The 
following sections detail some of the possible improvements to the present version of SEPSIP 
that would greatly extend its utility. 


6.2.1 Variable Time Step 


Many simulations would run much faster if a variable time step were incorporated. 
Presently, the time step must be small enough to capture the transient response of the fastest 
time constant of interest. However, since the fast time constant is only important for a small 
time period after a disturbance, using the small time step for the remaining time is very 
inefficient. When only slow time constants are important, larger time steps can be used. 

One way of implementing variable time steps in SEPSIP would be to include the option 
of adding the time step variable to the EXTERNAL INPUT subsection of the SIMU- 
LATION section. In this manner the time step variable, its new value, and the time that 
the new value takes effect can all be specified. 


6.2.2 Replace Gaussian Elimination 


The Newton-Raphson method used to solve the system of nonlinear equations requires 
the solution of the linear equation /x = y. Presently, SEPSIP uses Gaussian Elimination 
with partial pivoting to solve for x. For an nth order system, the number of floating point 
multiplication operations is proportional to n°. Since x is only used to produce a correction 
forthe Newton-Raphson method, there 1s no need to solve exactly forit. An iterative method 
for solving for x can cut down the computation time considerably. The Gauss-Seidel method 
for example, requires on the order of only n^ multiplication operations for each iterations. 
If the number of iterations can be held well below the order of the svstem. a speed gain will 


be realized. 
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Giving the operator the choice of which method to use would be easy to implement 
and would not add any extra time to the execution of the simulation. This way the operator 
can experiment to determine which is the better method for the simulation under study. 


6.2.3 Reuse of Jacobian Matrix 


SEPSIP presently recalculates and inverts the Jacobian matrix for each iteration of 
every time step. If the Jacobian matrix does not change very fast, there is no need to 
recalculate it for each iteration. Allowing the user to specify how many times the Jacobian 
matrix 1s used before 1t 1s recalculated would greatly increase the speed of the program for 
certain simulations. 


6.2.4 Output Variables and Output Subnodes 


One way to increase the speed of a simulation 1s to decrease the order of the system 
by incorporating output variables and output subnodes. An output variable would be 
explicitly defined by an element and connected to one or more input variables through the 
output subnode. The output subnode would equate all of the input variables to the output 
variable. For this reason, there would not be a system variable associated with the output 
subnode. Presently, all the variables would have to be implicitly defined and connected 
with a voltage subnode that adds a system variable. 


6.2.5 Action Files 


Action Files are text files that contain a list of SEPSIP commands. When an Action 
File is called from within SEPSIP, control would pass from keyboard entry to the commands 
contained in the file. Once all of the commands have been executed, control shifts back to 
keyboard entries. This feature allows one to run a number of long simulations sequentially 
without reamaining at the computer terminal. 

Modifving SEPSIP to accomodate Action Files would require replacing all calls to 
the system function gets with a call to another routine that would determine which input 


stream to use. The code would look similar to: 
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include <stdio.h> 
٣۰٦6۰٠۰03670۳۰ 6 7 77 


٠۰۰۶2706۲076577۴ ۶ہ 6[۳ودء 69د جہ‎ the present stream */ 
tvpeder struct Strm 
{ 

BIE SIRES 

struct Strm "last; 


) 
STRM; 


7» This is the initıislization code which sets the 
stream to stdin */ 


statrc STAM *strm: 


757675677 
{ 


char *calloc(); 


SLIM (STRM O*)ecalloc( (unsigned) 7 , svzeoftSTRM)); 
strm->in = stdin; 
strm->last = NULL; 

} 


/* edit strm sets the current stream to the value passed 
E E 


6 ی4‎ ٣٦٢ 
FILE *stm; 
{ 
eRe calloc (> 
STRM *temp; 


temp = (STRM *) calloc((unsigned) 1, sizeof(STRM)); 
temp->in = stm; 

temp->last = strm; 

strm = temp; 


} 


1 ocr: In() replaces gets (jas the routine for reading in a 
230-۶7 0 3 */ 


ei تد‎ gece in(string) 
ease String; 


{ 


E e 


H- 


zergees(string MAEXCHAR,Strm-2sin); 


/* see if read to the end of the file */ 

while (1 == NULL && strm->last != NULL) 
{ 

strm->last; 


SEINE 
= fgets (string, MAXCHAR, strm->in); 


à 
) 
maes resaltos trailing carriage return */ 
et rlen string) = 1; 
3< >= 00.58 stringl1] == 'An') string[i] = NULL; 


Ze eur string: 


SIE 





6.2.6 Integrated Graphics 


SEPSIP was intentionally written without any graphics to improve the portability of 
the code. In general, graphic subroutines tend to be machine specific and therefore require 
much revision when transferred to another computer. SEPSIP has circumvented this problem 
somewhat by using a totally separate plotting program (Norplot) to display the data. 
Unfortunately. the data can only be plotted once the simulation is totally finished. It would 
at times be beneficial to observe the display variables in a graphical form as the simulation 
progresses. If the simulation goes unstable, the program can immediately be halted instead 
of waiting for its completion. 

Portability could still be maintained to a degree by using only a few general routines 
that could be easily modified for whatever system SEPSIP is installed on. These routines 


would include 


terminit() Initialize the Graphics Screen 
clrscrn() Clear the Graphics Screen 
move(x,y) Move to (x,y) 

draw(x,y) Draw to (x,y) 


windset(xmn,xmx,ymn.ymx) Set the coordinates of the corners 
windget(xmn.xmx,ymn.vmx) Get the coordinates of the corners 
g_puts(str.height,rot) Print a string on the Graphics Screen 
termend() End the Graphics Screen 


These routines should all be contained in one file that can rewritten to conform to the 
graphics interface of each particular machine. 
6.2.7 Implement external variable ’types’ 


The original concept for SEPSIP wasto be able to specify the external input and output 
variables to be one of four types: floating point, integer, Boolean, and Switch. Presently, 
only the floating point type is truly implemented. Adding the capability to recognize and 
print out the four types would improve the ability of the user to specify his or her desires 
and to understand the results of the simulation. A switch being on is more informative than 
aswitchhaving a value of 1.0. Likewise a variable called overspeed_sensor having a value 


of false is more informative than having a value of 0.0. 


SECH 





6.2.8 Optimizatıon for speed 


While a conscious effort was made to write efficient code, there is still plenty of room 
for improvement. There are a number of places where speed was sacrificed for clarity in 
reading the source code. In any software project, there is always the conflict between writing 
fast routines, and routines that can be easily understood. Usually itis a good idea to initially 
write understandable code that can easily be debugged. If the resulting code runs too slowly, 
the code can always be optimized. SEPSIP is presently at this state and requires some 
optimization to improve its performance. 


6.2.9 Check for Recursive INCLUDE Files 


The present version of SEPSIP does not check for recursive INCLUDE statements 
where a file tries to include itself or a file above itself in the stack of include files. Con- 
sequently, it possible to construct an input file that will cause SEPSIP to enter an infinite 
loop as it recursively opens the same files over and over again. Normally this is not a 
problem since for clarity the input file structure should not be very complex and any recursion 
would therefore be easily noticed. However, this condition should not be allowed to exist 
and SEPSIP should check for it. 

6.2.10 Break Key 


Once a simulation begins in the present version of SEPSIP, the only way to terminate 
the simulation before it 1s completed 1s to terminate the execution of the program with a 
"control c". Since a simulation can take some time to complete, it would be useful at times 
to be able to stop a simulation in the middle by depressing a specific key, observe some of 


the internal variables, and possibly continue the simulation. Unfortunately, there is no 
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standard way ın the C programming language to determine if a key has been depressed 
without the user entering a carriage return’. Most systems do provide a way of accomplishing 


such "unbuffered IO” but the implementations are very system dependent. 





1 C normallv emplovs buffered input where the characters a person types in from the key- 
board are not available to the program until the return key is depressed. This allows the 
user to edit the input line before the program has access to it. A consequence of buffered 
input is that when a program requests input from the keyboard, the program waits until a 
return is entered. In this case, we do not want the program to wait for a return because 


the operator would have to hit the return key every time the program checks for a charac- 
EST. 
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APPENDIX A 
GLOSSARY 


BALANCING THE SYSTEM 

Balancing the System refers to the process of varying the input variables until all of the 
implicit variables for all of the elements are within tolerable limits of zero. When the Mean 
Square error of the implicit variables are less than the CONVERGE limit, the system is 
considered balanced. 
CONSTITUTIVE EQUATIONS 

Constitutive equations describe the relationships between the input variables, state 
variables, parameters, and external input variables of a device. For many devices, the con- 
stitutive equations are used to define implicit variables that have a value of zero when the 
constitutive laws are satisfied. 
DEVICE 

A Device is a type of electrical or mechanical machinery that can be included in a network 
descnption. The device is described by a number of constitutive equations that relate input 
variables to state variables, parameters, and external input variables. Examples of devices 
include resistors, synchronous generators, reduction gears, turbines and switches. 
ELEMENT 

An Element is a specific example of a device that has its own name and parameter values 
associated with it. A resistor for example, would be a device while R2 which has a value of 
10 K ohms would be an element. 
EXTERNAL INPUT VARIABLE 

An External Input Variable allows the operator to specify an input to an element 
externallv from the network description. The external input variables are specified in a Queue 
that is specified in the Simulation section of the input file. External input variables can also 


be initialized in the Initialize section. 
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EXTERNAL OUTPUT VARIABLE 

External Output Variables are variables generated by an element that the operator may 
chose to display during the simulation. Only external output variables, external input variables, 
and voltage subnode voltages can be displayed. 
IMPLICIT VARIABLE 

Implicit Variables are calculated by each element from the input variables, parameters, 
state variables, and external input variables. The implicit variables have a value of zero when 
the constitutive laws governing the element are satisfied. 
INPUT VARIABLE 

Input Variables are used by the device descriptions to generate the implicit variables. 
Within the device description, the input variables are implicitly defined. Values are assigned 
to input variables by the network description. 
JACOBIAN MATRIX 

A Jacobian Matrix contains the partial derivatives of the implicit variables with respect 
to the input variables. In SEPSIP each element generates its own Jacobian Matrix. From the 
elemental Jacobian Matrices, a system Jacobina Matrix is generated that contains the partial 
derivatives of all the implicit variables with respect to all of the system variables. 
KEYWORD 

A Keyword is a word that is used by SEPSIP to delimit sections of the input file. 
Keywords are case insensitive and should not be used as Element names or Node names. 
KIRCHHOFF's LAWS 

kirchhoff's Voltage and Current Laws determine the relation of currents and voltages 
at an electrical node. For a number of elements that are attached to a node, the sum of all the 
currents entering the node must equal zero. Furthermore, the voltage at a node is the same 
for each of the elements. 


NETWORK 
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A Network specifies the interconnection of elements within a simulation. In SEPSIP, 
the Network is defined by assigning input variables to one of four types of subnodes that are 
in turn grouped into nodes. 

NODAL EQUATIONS 

Nodal Equations are the mathematical representations of Kirchhoff's Laws. The nodal 
equations are used to relate the input variables of all the elements of the system to the system 
variables. 

NODE 

A Node ın electrical terms is a connection between terminals of two or more electrical 
elements. Associated with each node are two expressions which are mathematical statements 
of Kirchhoff's voltage and current laws. In SEPSIP, these mathematical relations are assigned 
to subnodes. A SEPSIP Node is used to group subnodes into easily understood groups. An 
Electrical Node is represented in SEPSIP by a SEPSIP Node having a voltage subnode and a 
current subnode. 

PARAMETER 

A Parameter is used to define an element as a specific example of a device. Parameters 
are assigned values in the first section of the SEPSIP input file and can not be changed during 
the simulation. 

STATE VARIABLE 

State Variables are variables internal to an element whose value at the end of the last 
time increment are saved and available. State variables are normally used for integration and 
differentiation. For elements that are described by state machines (such as circuit breakers), 
State variable can also be used to indicate the present state of the element. 

SUBNODE 

A subnode is used in SEPSIP to define the relation between the element input variables 

attached to it. There are four types of subnodes each of which specify a different relation for 


the attached variables. 
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SYSTEM JACOBIAN MATRIX 

The system Jacobian matrix contains the partial derivatives of the implicit variables 
with respect to the system variables. This matrix is used to create corrections to the sytem 
variables which in turn are used to generate input variables that satisfy the constitutive relations 
of each element. 
SYSTEM VARIABLE 

The system variables are a set of independent variables from which all of the input 
variables of the elements can be derived from. The number of system variables must equal 
the total number of implicit variables. The system variables are defined by the four types of 


subnodes. 





APPENDIX B 
INSTRUCTIONS FOR ADDING DEVICES 


Adding a device to SEPSIP is a five part process. First, a device driver routine must be 
written inthe C programming language that calculates the implicit and external output variables 
along with the Jacobian matrix. The second stepis to modify a special input file which SEPSIP 
uses to assign the number and variable names for each type of variable (state, input, etc.). The 
third step modifies an include file which notifies SEPSIP of the existence of the device and 
the name of the routine written in the first step. The fourth step involves adding the device 
driver file name to the Makefile. The Makefile assists in the recompilation procedure 
accomplished in the final step. 


B.1 Write Device Driver Routines 


The major role of the device driver routine is to calculate implicit variables based on 
the values of input, external input, state, old_state, and parameter variables in addition to the 
current simulation time increment. The routine can also calculate external output variables 
and a Jacobian matrix. The device driver routine may change the values of the implicit, 
external output, and state variables. Parameter, input, old_state, and external input variables 
should not normally be changed by device driver routines. 


B.1.1 Arguments 


A device driver routine should have the format shown in Figure B.1-1 


Figure B.1-1 Device Driver Routine 


fx f dev a.c */ 
#include <stdio.h> 
#include <math.h> 
anelude "doerry.h" 


Nte variables shorld be defined here using the define directive */ 


#define 70 e->con.in[0] 

mee ine lt eescen.:n!!] 

er 1 Oe — CON. و‎ 

zjeejne ı| e->con.in!2] 

#define va e-»con.state[0] 
fdefine va old e->con.old state[0] 
we. ne Froe-»con.param[O] 


se 





Tine Il E SCoON.Implicit [0] 


tdefine in a e-zeen,ezt in[0) 
fdefine out_a e->con. S1 Cut [0O] 


Eevca(e,dt) 
ELEMENT *e; 
deuble dt; 


/* the code should be located here */ 
) 


The define directives are optional but their use greatly eases the readability of the 
program. The ELEMENT structure along with the CONNECT structure are defined in 
doerry.h. 

Figure B.1-2 ELEMENT and CONNECT structures 


e-tcractecd 


/* 
SC 


5220118366 / 


These are the external input and external output types used 
rehe type €2t in and type ext cut arrays of the Connect 
structure. These types are presently unimplemented in SEPSIP 
* 

/ 
#define 
#define 
#define 
#define 


BOOLEAN 0 
SWITCH 1 
INTEGER 2 
FLOAT 3 


/* The CONNECT structure holds arrays of variables associated 
with each element */ 


tvpedef struct Connect 


mt nbr inputs /* Number of input variables 27 
int nbr_states; /* Number of internal states */ 
ت٣ .×ط‎ implicit: /* Number of implicit equations E 
nr Dbe at in: umber of external input variables e d 
untenbr e-t out; /* Number of ezternal output variables X 
int nbr param; /* Number of parameters i 
double *in; / pointe to arravsef input, variables E 
double *state; |*epeinter to array of state variables md 
double *old state; I pointer ta array of old state variables */ 
double *implicit; /K peinterstorarray or implieit varıables */ 
double *e-:t in; j#sosinter te array of ezternal.insut 
u variables */ 
double "est out; 63ج 7ر‎ 666277۶552۶3۰۳ of ekternal output 
D variables */ 
double *param; /* pointer to array of parameters zr 
double *init state; po pointer tocarraywcesanitial values fer 
7 state Variables */ 
double *init ext in; PT pointer toOsartray, Orvanitael values for 
7 RK external input variables */ 
double *init in; A pointer to array of initial values for 
8 input variables */ 
double *jacob_in; pointer to Jaceobian metriz of implicit 
variables with respect to input 
variables */ 
TEE switch; ee by function 
B = CU ت32‎ 5 EN E E as m 
a ext 1n; Pe BOISE CO crea ei eternal input types */ 
2۳ ۲۰۰36 ۳ SE BOIL 60 7 CE external outputs Eypes*/ 
ine *imp index; J Pointer Ee 
array */ 
} 
CONNECT: 
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tvpedef struct Element 


{ 


int serial; /* serial number of element (unused) */ 
char *name; /* pointer to name of element ”/ 
struct Connect con; /* Connect structure 7٭‎ 


Suet Device “devace; /* Pointer to DEVICE structure which contains 
the names of all the variables along with 
the starting address of the device routine 


1 if element is used in the network 
O if element is not used in the network */ 


are erlag; /* 


) 
ELEMENT; 


B.1.2 Select number and types of variables 

One of the first choices one must make when writing a device driver is the number of 
each type of variable. SEPSIP allocates only enough memory for each array to hold the 
number of varıables specified ın the Device Input File (see section B.2). The size of the 
allocated arrays are specified by the nbr_* variables in the CONNECT structure. Changing 
the nbr * values will not reallocate the arrays and therefore should not be done. 

Using the define directive as discussed in the previous section is a good way of 
assigning understandable labels to the memebers of the variable arrays. It is also a good 
idea to use the same name with both the define statement and the Device Input File (Section 
B2). 

B.1.3 Calculate Implicit variables 


The heart of the device driver routine is the calculation of the implict variables. The 
calculations can involve any of the variables contained in the ELEMENT structure and the 
time incremnt dt. Generally. one should always check and write appropriate code for divide 
by zero situations. 


B.1.4 Calculate State Variables 
The state variables that are specified in the current time step are moved to the old. state 
variable array once the system is balanced. In this manner, one can store information that 


will be required in the following time increment. 





B.1.5 Calculate External Output Variables (optional) 


External Output variables allow the generation of variables that are not directly used 
in calculations but may be of interest to the user in monitoring the simulation. The original 
concept for SEPSIP was to be able to specify the external output variable to be one of four 
tvpes. but presently only the FLOAT type is implemented. The typing refers only to the 
manner in which the variables are displayed and not to the way in which they are stored. 


B.1.6 Calculate Jacobian Matrix (optional) 


Calculating the Jacobian matrix within the device driver routine can greatly increase 
the speed of the simulations. The variable e->con.jacob_switch is used to indicate whether 
or not the Jacobian is calculated. if e->con.jacob_switch is zero, the Jacobian is not cal- 
culated by the routine. Otherwise, the Jacobian 1s calculated by the driver routine. 

Each element of the Jacobian array is the partial derivative of an implicit variable with 
respect to one of the input variables. e-2con.jacob in[i -- N * j] refers to the partial of 
e->con.implicit[i] with respect to e-2con.in[j] where N z e-2»con.nbr implicit is the total 
number of implicit variables. 


B.2 Modify Device Input File (three phase.input) 


SEPSIP uses in input file to determine how many variables of each type should be 
allocated and the names of those variables. Each device must have an entry of the form 
shown in figure B.2-1. Appendix C includes two examples of input files. 


Figure B.2-1 Device Input File Entry 


NAME device name 
0+ TS 
input name 1 
input name 2 
input name 3 


Fm ET T Ge 


he ^4 
state name i 
= = 
- de PN 
state name 2 
Ir = rm nn E 
BP LII A 
1 e * 1 ZC - 
: Ge E 
a S OEMS wei 
: AA re 
imsliczit name Z 
^ — -—— 
IFA Te y vr? 5 
EXTERNAL IN 3 
4 - am : ^ 
float ezt in 1 
; ہہ‎ Ee "e 
21ے‎ 7 ext in Z 
: SS E 2 
integer ert in 3 
GER FIT e e Males p ES 
= DESMBRIL OUT 2 
2 EE = 
SL ome cc Et. T 
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float ER 
PARAMETERS 2 

param_name_ 

param name 
END = 


N e 


The number following the variable type indicates how many variables of that type are 
listed. 

For the external input and external output variables, a type indicator must be specified 
before the name of the variable. Legal types are BOOLEAN, SWITCH, INTEGER, and 
FLOAT. In the present version of SEPSIP, this indicator is ignored. 

The variable names should all be unique within a device description. This means that 
one should not give an implicit variable the same name as an input variable. Some reuse of 
variable names 1s possible, but doing so can lead to much confusion. 


B.3 Modify penner.h 


The penner.h include file has two purposes. The first 1s to specify the names of the 
device input files and the number of devices described in these files. The second purpose is 
to associate device names with the device driver routines. Appendix C contains the current 
version of penner.h. Figure B.3-1 shows a simplified version of penner.h 


Figure B.3-1 penner.h example 
A penner.h */ 
peace. int (FUNCTION PIR) (); 


#define NBR DEV FILES 2 /* number of device input files */ 


d 


speeity che names end paths of the device input files */ 
static char *device file[] - 


!/mit/13.411/sepsip/three phase.input", 
"o/ : 


/mit/13.411/sepsip/one phase.input" 
be 


/* specify the number of devices described in each of the 
above files */ 


ze 2.22 ine nbr device tilel] = 
{ 


f 


H Ww 


۳ 


/* specify the names of the devices as declared in the 
She desees input files */ 
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Static chaer ‘device namel] = 
{ 

E line 3p; 

07 wye", 

"gen syncen Spi, 

"switch" 


/* specify the device driver routine corresponding to each of 
the above named devices */ 


pacsine FO t line 3p 
rdefine Fi rl wye 

D nene Gen Synch Sp 
uierine po spst switch 


166766۰7 69ے .ج3ت ۰۰۰۰۹ 


int EO 
int El 
ent EZ 
ent F3 


PA IA IA IA 
س“ سه س“ س‎ 
یح‎ ~ ne 


y declare funetron pointer array */ 


peace FUNCTION FIR dev fnctn[] = 
{ 

FO, 

Fl, 

EZ, 

TE 
} 


The order of the device names in the device_name array should be the same as the 
order of the corresponding device driver routines in the dev_fnctn array. 


B.4 Modify Makefile 


Most computer systems inciude a Make utility for assisting in the management of 
software projects. The Make utiltitv operates on a data file which in UNIX is usually named 
Makefile. The Makefile contains instructions as to which files should be compiled and linked 
in order to create an executable program. The Make utility uses these instructions to compile 
only those files that have changed since the last compilation. If only one file is edited, only 
that one file is recompiled and linked to the other object files. For this reason, Make can 
considerably reduce the compilation time of alarge program. Figure B.4-1 shows an example 


of a Makefile. 


eae 





Figure B.4-1 UNIX Makefile Example 


9 ۶ ۰۱90 3p.c vye. o f gen synch 3p.o f spst switch.o 
OBJE= check name.o commands.o dump data.o edit _simulate. o elm jacob.o 
file | options.o gauss eliminate.o integ.o ioliba.o load device.o 
load element.o load initial.o load network.o load simulation.o 
make Tjgeoblan.o print_ network.o read device.o read element.o 
read network.o Sepsip.o Setup) simulation.o simulate.o 
dump | data.o 
BOPDDDEESDES = penne=.h doerry.h 
sepsip: S(OBJB) $(FUNCO) 
eee sepsip S(0BJB) S(FUNCO) -Im 
Sad device.o: $(INCLUDEFILES) 
n ee -c load device.c 
read device.o: $(INCLUDEFILES) 
E een € read device.c 
sepsip.o: $(INCLUDEFILES) 
Ben - or sepsip.c 
clobber: 
II Oo 


E ii‏ ہے Se‏ سے 


Recompile SEPSIP 


The final step to add a device to SEPSIP is to recompile the program. Using the above 


Makefile, the recompilation is accomplished in UNIX by entering the command make -k at 


a UNIX prompt. For other systems, one must read the instruction manual for the system C 


compller. 
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APPENDIX C 
DEVICE DRIVER CODE 
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C.1f_t_line_3p.c 








EE line 3p.c */ 
Norbert EH. Doerry 


11 March 1989 


This routine simulates a 3 phase transmission line as a series 


combination of a resistance and reactance. 


has a parallel leakage resistance 


Wi 
#include <stdio. 
#include <math.h 


h> 
> 


#include "doerry.h" 


#define vOa e-»c 
#define vOb e->c 
#define vOc e->c 
#define vla e->c 
#define vlb e->c 
#define vlc e->c 
#define i0a e->c 
#define i0b e->c 
#define i0c e->c 
#define ila e->c 
#define ilb e->c 
#define ilc e->c 
#define va e->c 
#define vb e->c 
#define vc e->c 
#define ia e->c 
#define ib e->c 
define ic  e-»c 
ine va old 

raezine vb old 

Ederane vc old 

gene ia old 

Time ib old 

#define ic old 

tdefine R e->con 
#define L e->con 
#define Rl e->co 
#define vOa_ 0 

#define vOb_ 
mic::ne voc ` 
#define vis 
tfdefine vlb 
Eine VIC 
tdefine' i0a_ 
define i0b_ 
Eline i0c_ 
meine ila- 
#define ilb 


fdefine ile 


e ODON GQ 04 t Mt 


EG 


Fr! 


pone 3p(e,dt) 


JÎ o O] 

>1 71 

en. 13 A 

cnram is) 

on.in[4] 

en 71 

Ore 2 m1 6 | 

onra ma] 

1 1 ق6 

om. info] 

on. 2m aio] 

77ے 
on.state[0]‏ 
on.state [1|‏ 
on.state [2]‏ 

on. state [3] 
on.state [4] 
on.state [5] 

es >contold state[0] 
5--600 7۰678۶3 (11 
en 147ص2‎ 2666 6 71[ 
e eon old States] 
e->con.old state[4] 
E. con ala” state (9) 
.param [0] 

.param [1 ] 


n.param[2] 
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The reactance also 





ELEMENT *e; 

double dt; 

{ 
double Ra bb Esc aod tE old,ftc old; 
Ee 1Ja,il15,11c,11a old,ilb old,ilc old; 


Et 31,7; 


/* initialize the jacobian matriz to zeroes 


momen = 0; dt = 0.0 && 1< 6 ; itt) 
lE = 07; y < 12 ; j++) 
EL zan.jacebänlı 4 6 * j] = 0.0; 
pa vla - vOa; 
pus VID = vOb; 
ES vlc - vOc; 
Mile - i0a) / 2.0; 
Milo = 10b) / 2.0; 
e (IC = 10c) / 2.0; 
/* see if the inductance is zero or the leakage resistance is zero*/ 
if (L == O ]] R1 == 0) 
{ 
/* pure resistance */ 
EL con.3mpliicit[O] = va - ia * R; 
EL - un umplicit[1] = vb = ib * R; 
E -oneuxmplirseit[2] = vc - ic * R} 
son Jacob _in[0 +.6 * vda ] = -1.0 
Emo con.gJacob ¿in[0 + 6 * vla ] = gs 
Econ.jacob in[O + 6 * i0a ] = EW 2O, 
٣۰۰٠۰٠٠ ط6ذ‎ +6 * ila J = -R/ 2.0 
aa een Jacob nll Ft 6 * y0b |] = 7ء ے‎ 
ELEccn-jacob in[l * 6 * vlb ) = 00 
RE 6 ت3 ط‎ ]13 +6 i0b J = poo 
econ jecob 1011. + 6 * ilb J = -R / 2.0; 
ES CON saech ni 2 + 6 * vOc ) = -1.0; 
تح‎ jacob in[2 + 6 * vic ] = ا‎ 
ES een. jacob in[2 + 6 ٭‎ 106 J = R7 2.0; 
Sen BEE il2 FE 6 * ile ] = =F / 2.0; 
) 
else 
{ 
/* inductance present */ 
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/* inductor voltage divided by inductance */ 


cea = (va = R * ia) / L; 
EcL o — (vo — R * 1b) / L; 
mee = (vc = I * ic) / L; 


Peefindg inductor current */ 
ے۸۷‎ ia - fta * L / R1; 
EL = 1b - ftb * L / Ril; 


E = ig = ftc * L / RI; 


E EMA old values */ 


57 old = (va old - R * ia old) / L; 
Aebrola = (vb old - R * ib old) / L; 
ala = (ve old =~ R * ic old) / L; 


ila old = ia old aE alol ~ L / R1; 
EID old - ib old FEE old 7 Û / RI; 
ec ld > ic ole > ftc old * L / R1; 


maea culate implicit variables using trapezoidal integeration */ 


E EE Les TO EE 
Ee 


Son implicit[2] = integ(ile, ile old, fte, fte old, dt); 


EL con.impliicit[l1) 


/* calculate Jacobian Matrix */ 


e->con.jacob_in[0 SU O ME dto 230 5 L)? 
e-»con.jacob in[O + Ia E EE GOR o ICG | 6 3 UOS |, 
Exccon.jacob in[0 OO RL 4 

OS EE DUO TE) 720; 
e-»con.jacob in[O tla = = e--con.-jaceb _in[O t 6 * vOa ]; 
- Eon. Jacob in[l E Ee, L); 
EL con. Jacob in[l ظ0 167۴ 001700 6 خر 66ہ جح56‎ 17 
Er con. Jacob 2 TOS OTR RIT 

EE 7 20, 
Eo-con.jacob _in[l +۳15۶٣ 6> 260 356607 1 ۹۶ vOb ]; 
e-»con.jacob in[2 uoce O A RI dt {2.0 * Ls 
p.ocon.jacob in[2 Ie IG CON JACEE ct 6 * VOC |; 
EN CON. Jacob in[2 70-11۲۲5۱00 ۳ ۳ 7 7۴ 

۲۳۰۰۰٠2۰0٦۱۶۰ 7/7/90 
Se COR. Jacob 2 EE + 6 voc ]; 


Pewcurrent sums are the following three implicit equations */ 


10a + ila; 
OBE 115: 
¿ie + ile: 


EZ esn.implieit[3] 


BE-ccon.aimplicit[4] 


es>=con.implicit(5] 


65 د 





Fh 


ct 


line 


(ad 
6 
0 


Econ. Jacob in[3 + 6 * 10a ] = 1.0; 
EL ou.Jacob in[3 + 6 * ila ] = 1.0; 
SS Con. Jacob in[4 * 6 * iOb ] = 1.07 
E Son. Jacob in[4 * 6 * ilb ] = 1.0; 
Seeeon-jyacob in[5 * 6 * i0c ] = 1.0; 
een. Jacob in[5 + 6 * ilc ] O: 


en the jacob switch on */ 
SS Peon. Jacob switch = 1; 
Store external output variables */ 


Meme a = 0 ; i < 6 +; i++) 
5. zon.e=t out[i] = e->con.state (ij; 
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C.2f rl wye.c 








— "7 


/* Norbert H Doerry 
ee March 1898 
This file simulates a three phase rl load connected in a wye fashion. 


Eb cEcenter point, or ground, can be connected to a reference current 
node if it is desired tc leave the line floating. The neutral 
voltage can alternately be set to a specific value by using a reference 


voltage subnode. 


2) 

Eliade <stdio.h> 
include <math.h> 
finclude "doerry.h" 


#define vOa e->con.in[0] 

foerine vOb e->con.in([1) 

Jdefine vOc e-»con.in[2] 

#define vOn e->con.in[3] 

#define i0a e->con.in[4] 

define i0b e->con.in[5] 

define i0c e->con.in[6] 

define i0n e->con.in[7] 

define va e->con.state[0] 

define vb e->con.statell] 

#define vc e->con.state[2] 

#define ia e->con.state [3] 

#define ib e->con.state [4] 

#define ic e->con.state [5] 

@eercane va old e=-con-old state[Oj 
#define vb old e->con.old state[1] 
me me ve old e->con.old state[2} 
#define ia old e->con.old_state[3] 
fdefine ib old e->con.old state[£] 
$define ic cld e->con.old state [5] 


f$define vOa O 
#define vOrL_ 1 
tdefine vOc 2 
Ederrne von 3 
fefine iOa 4 
Metine i0b 5 
fdefine i0c 6 
#define i0n 7 


faefine R e->con.param[0] 
:5er2ne L e-»con.param[1] 
Feezine El e->ccn.param[2] 
El wye(e, dt) 

PRE MENT *e; 

Hetucle dt; 


( 


2 ١٠۳ 





ter! wye. 


double 
double 
double 


7٥۰‏ ص 00ت 
Re;‏ 


ita ttb fte fta old,ftb old,ftc old; 


Ix uritialize the jacobian matrix to zeroes */ 


NA. = O ; dt == 0.0 €£ 1 < 4 ; i++) 
MO = 0 ےی‎ 3 < 8 ; ++) 
SS MN Jacob infi + 4 * 3] = 0.0; 


ca leulate states */ 


10n + iOb -* i0c;‏ 3ت7 

mc 30n + 10c + iða; 

ilc = i0n + i0a + i0b; 

va = vOa - vOn; 

vb = vOb - vOn; 

pac vOc - vOn; 

ia Oa = ila) / 2.0; 

ES (10b -= ilb) / 2.0; 

Du ide = ilc) / 2.0; 

/* sum of currents should be zero */ 


E n.umplicit[3] 
ER co5n-Jacob in[3 
Bee eon. jacob in[3 


EE con-jacob in[3 


+ ++ + 
A a ظط‎ va 


EL con.jaccb in[3 


/* see if inductance is 


if (L == 
{ 


1 


۷ 0) 


iOa ] 
205. 
10€ | 


1008] 


neglible 


Eure resistance */ 


Re = (R1 == 0 || R == 0) ? 0. 
es P>econ.implicit[0] = va = ia 
es >» con. implicit [1] = vb - ib 
x nomplacait[2] = ve = ic 
if (dt == 0) 
{ 
e-7een. jacob jin[O —- a 
e CON Jacobin r a * 
Sar eon. Jacob Tato +.4 ^ 
€--eenm- jacob in[O + 4 * 
و( تہ ےچ‎ 20 0 ۰ ھ٠٢٠‎ 
c com. jacob in|O + 4 * 


i0a + iObÞb + iOc + iOn; 


qe 
1207 
OF 
120% 
GE 
0 RLATR (RI F R}: 
* Re; 
“= Re; 
* Re, 
vOa ] = 220% 
vOn ] = 21.0; 
20a ] Re 712.07 
iob } = Re / 2.0; 
i0oc_] = Re / 2.0; 
i0n_] = Re / 2.0; 





EESTI wye.c 


ec»con-gaceb c in[i + 4 vob_] = 0۴ 
e-»con.jacob in[1 + 4 SONI = 07 
e-»con.jacob in[1 + 4 iOb ] -Re / 2.0; 
e=>con.jaceb in[1 +4 108] Re 275220, 
en on. jacoksin[l + 4732108 ] Be S 
Ss ceon.gaeoksin| 1 +4 * iOn ] = Re / 2.0; 
e-»con.jacob in[2 t4 * vOc ] = 295 
en eon jacce ani2 = 4 TT vOn ) = -1.0; 
Ss con oyeacobiaa [24 4 * 10c ] = -Re / 2.0; 
Eon jacebzin2 +4 * 7102] = Re / 2.0; 
EZ zone jaceoksin[2 +4 * 10b ] = He 2.0; 
جج‎ con. gacom in[2 + 4 * I0n ] = Re / 2.0; 
} 
} 
else 
{ 
/* inductance present */ 
E 2 mpl2est[0] = ia - ia old = (dt / L) * 
Eeler Ré ia old) - (va - va old) / R1; 
تد تب‎ ıimplieie[1] = ib - ib old - (dt / L) * 
ECL  vb5cild)4/12-0 - R * ib old) - (vb - vb old) / R1; 
Eoo omplicit[2].—- ic = ic old - (dt / L) * 
ح‫ ت5‎ 0-010054 2.0 —-Re*.zc old) = (ve = ve old) / R1; 
ccu jacob-in[O otf 4 * vOa ] = => de / (2.0 * L) - 1.0 / R1; 
e-»con.jacob in[O * 4 * vOn ] = - e->con.jJacob in[0 + 4 * vOa ]; 
e-»con.jacob in[O + 4 * i0a ] = 0.5; 
SR con. Jaco! :n[O «* 4 * 10b ] = - e->con.jacob in[0 +4 * iOa J]; 
EL con.jacob in[O 4 4 * 10c ] = - e->con.Jjacob in[0 + 4 * i0a J; 
LE 0 03g8cc- 10[0 + 4 * 10n |] = = e€=>con.jacob in[O + 4 * iOa J; 
Eeer 4 * vOb ] == de / (2.0 * L) = 1.0 / Ri; 
e-»con.jacob in[l1 * 4 * vOn | = < e->con.jacob in[1 + 4 * vOb J]; 
SS CON Jacob inl * 4 * iOb ] = 0.5; 
LE c-cusygacoeb in[1. + 4 * 10c ] — 9 e-»con.jacob in[1 + 4 * 10b ]; 
Econ. Jacob in [1 + 4 * i0a |] = = e=>con.jacob in[l + 4 * 10b ]; 
0ا جج ےد کت‎ ¢4 4 * 10n ] = = e=>con,jacob in[l + 4 * i0b ]; 
EE COE | € dt. 7 (2.0 * L) - 1.0 / R1; 
E con-gacoborn[2 4 4 * vOn ] = = e-»con.jacob in[2 + 4 * vOc ]; 
EE cen -gacsobounn[2 4 4 * 0c ] 9 0.5; 
Eo uw u5ccboIHI2 $74 iOa | = = e->con.jacob in[2 t 4 * 10€ ]; 
ep مد ود .تد‎ in [2 + 4 * 10b ] == e->con.jJacob in[2 + 4 * 10c J; 
EE - 2 Jacoboindg2 + 4°* 10n ] => e->con.jacob_in[2 + 4 * De J; 
} 
En the jacob switch on */ 
e-»con.jacob switch - 1; 
ees Con. jacor switch = 0; */ 


zo su 
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store external output variables */ 


me 0 E >, 1++) 
= eon.ezt out[i] = e->con.state[i]; 
` 
Y 
e 
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A 





ےء ط6 03 562ء۲۰۰۰ 


EN ۶٦ہ‎ mach.c */ 
Norbert H. Doerry 


EUCDADriJ] 1989 


Moers tile contains the driver routine for simulating a generic 


synchronous machine as modelled in: 
Synchronous Machine Dynamic Models 


ML ErrTtlev Jr. 
BEES Technical Repert TR-87-008 


June >, 1987. 


NE Modified 29 april ****** 


Changed to use modified trapezoidal integration  -nhd 
gi 


# include <stdio.h> 
xuuetode «math.h» 
ImuePude "doerry.h" 


/* terminal voltages and currents */ 


#define vOa e->con.in[0] 
#define vOb e->con.in[1]} 
#define vOc e->con.in[2] 
#define vOn e->con.in[3] 
#define i0a e->con.in [4] 
#define i0b e->con.in [5] 
#define 10c e->con.in [6] 


٣۰۰۰٦۰ ٦ voltages and currents */ 
define vOf e->con.in 


[7 
#define vlf e->con.in[8 
#define 10f e->con.in[9 

[1 


#define ilf e->con.in 


PeesOrational properties */ 


/* Tneta is electrical radians, wm and wm dot are mechanical */ 


#define theta e->con.in [11] 
#define wm e->cen.ınl]2! 
gerne wm dr e->con.in[13] 


sum of rotational inertia and electrical torque */ 


/ Loads are a negative Te, prime movers provide a positive Te */ 


#dezine Te e-»con.in[14] 
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Internal variable */ 


define Psi q e->con.in[15)] 
#define Psi_d e->con.in[16] 


define offsets */ 


#define 
#adefine 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


vOa 


vor 
voc_ 


von 


ida_ 
20b 
ioc ` 
vof. 
ELI 
Of. 
BET 
Ineta 
7 
Wm Or ` 
Te 


Po vo Ja Wë D N HF O 


فم نم دم دم 
تم w‏ 


14 


"define parameters */ 
P 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


#define H 


#define 
#define 
#define 


#define 


PP 
wbs 


Vdb 
Pbs 


e=>con 
e-»con 
e->cen 
e->con 
e-»con 


e-»con 


e-»con. 


e-»con 
e->con 
e->con 
e->con 
e-»con 


e-»con 


e->eon. 
e=>con. 


e->con. 


define states */ 


#define 
define 
#def ine 
#define 
#define 
#define 
#tdefine 


Zoe ine 


s theta 


e->con 


.param[0] 
.param[1] 
.param[2] 
.param[3] 
.param[4] 
.param[5] 


param[6] 


.param[?7] 
.param[8] 
.param[9] 
.param[10] 
.param[11] 
2paramid2l 


param[13] 
param[14] 
param[15] 


GSD ON 
e->een. 
e->con. 
eS COR: 
e->eon. 
e->con. 


e->eon: 


.state[O 
[ 


] 
state [1 ] 
21 
state[3] 
state[4] 
state[5] 
state [6] 
state [7] 


State 


T 





EMevnch mach.c 


#define d psi d 
#define d psi q 
$define d eq p 

#define d eq pp 
#define d ed pp 


e=»con. state [8] 
e->eon.state|9] 
e-»con.state[10] 
e-»con.state[11] 
e->con.state [12] 


define s theta old e-»con.old state [0] 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


#define d eq p old 


s wm old 


e->con.old state [1] 


s wm dt old e-»con.old state[2] 


posed old 
mea q old 
ep old 

eq pp old 
edepp eld 


e-»con.old state[3] 
e-»con.old state[4] 
Eet 
e consola state [161] 
e=>con ota state [7] 


+09 پ0‎ d old SE EON OLS SECS | 
ees. q old e->con.old state[9] 


e Con- ord statelrlo) 


i ue d eq pp old e-»con.old state[11] 


define d ed pp old e-»con.old state[12] 


Eerine implicit variables */ 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


idefine 
#define 


define 


define 
define 
define 
define 


#define 
#define 
#define 


define T 


3٥۶ 6‏ ٭ 
#define‏ 
$define‏ 
#define‏ 
#define‏ 


isum 
ifsum 


vo 


BS d 
1 q 
i eq pP 
ed pp 
meg p 


Torg 
W 
Wdot 


PI2 3 


xad 
xkd 
Er 
zd 


alpha 
ifd 
ved 


eaf 


e= eon.implicit[O] 
e=- con implseit|l] 
e=--cen.implieit[2] 
pcocomemplitest[rs] 
e=>een.implieit|2] 
Ss con. implicis [5] 
e=> con implicit[6] 
eo con. tm. tele | 7) 
e-occonumplricst[8] 
e-oconsrmpiicit[9)] 
es=290n.impl1c1t [10] 


2 
0.6666666€667 
5 ے0۳" 


es» cons ext ٦٣٣ 
es cComne st Out | 1) 
CE 60766 8 1[ 
ea Con cet Outs] 


eS Ee ké) 
Ee) 
eS Eon. ext CUE |6| 


es con est outil] 


5--606 ES) 
e=>con.ezxt_out [9] 
e- -COn ert 0ة‎ 0[ 
e- rcon ezt out[11] 
ce 606 ]12 ا‎ 


=a LAE 
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#define va er son... out [13] 
#define id E. Coll Et out [14] 
#define iq تہج یج2‎ EE) 
#define Tepu En ooo eee out | 16] 
#define RPM esP>eon est out [17] 
define Pmech e eom.ezt out (18) 
define Pe E. EONS outl] 
#define Tacc e->con.ext_out [20] 
#define la e->con.ext_ out [21] 
tdefine Ib es genen GUL [22| 
#define Ic e->con.ext out [23] 


eyoen mach (e, dt) 
LEMENT *e; 
double dt; 
{ 
double temp; 
double va, vD, VC; 
368 i,j; 
double io; 
EDIE cost,costp,costm,sint,sintp,sintm; 
double Tag; 


la = 102; 
EDU 10b; 
Ic = i0c; 


ENcnsure theta is in range */ 


/* while (theta »  TWOPI) theta -- TWOPI; 
while (theta < -TWOPI) theta += TWOPI; */ 


Base = cos (theta); 
costp = cos(theta + Pi2 3); 
ET > COos(theta - Piz 3); 
Sint = sin(theta); 


Sin(theta + PI2 3);‏ یئ 
sintm = sin(theta - EZ 7‏ 


/* calculate RPM */ 


RPM = wm * 60.0 / TWOPI; 


SiG the shielding constraint model  */ 
/* calculate base quantities */ 


if (wbs == O) wbs 
if (Vdb == 0) Vdb 


TWOPTS* 60.0? 
Deere 





Besvnch mach.c 


La, 


SEBS == 0) Pbs = 1.0; 
spp <= 0) pp = 1.0; 


p- 


EB Pbs * C2 3 / Mdb; 
Br Ifnl * (rd - xal); 


BEER ess 0) IfB = 1.0; 
V£B = Pbs / IfB; 


ES = pp * Pbs / wbs; 


/* calculate the phase voltages */ 


va  vOa - vOn; 
vb = vOb - vOn; 
ve = VOC = VON; 


/* calculate instantaneous power */ 

Pe = va * i0a + vb * i0b + vc * ide; 

IES the Parks transformation for both the current and voltages */ 
DIR SM EE, * 105 +"costp * 106) / IdB; 

EN OO ^ — * (sint * 10a + sintm * iOb + sintp * iOc) / IdB; 

io = 2 3 DS 2.0: 305 / 2.09 30c / 2.0 ) / IdB; 

vd = تی‎ E SS ca costm ~ Vb + costp * ve) / Vdb; 


vq Ns ie a + sintm * vb + sintp * vc) / Vdb; 
vo = .20ح ےک وت‎ Vb 7 2.0 4 ve / 2.0.) / Vdb; 


EN ouvert the field variables to per unit */ 


ECE-c(11f = 10£f) / (2.0 * I£B); 
1 (vlf - vOf) / VfB; 
Taq — (xd pp !- 0.0) ? Tad * zq pp / zd pp : Tad; 


ensure xd pp and xq pp are non zero */ 


if (xd pp <= 0.0) xd pp O 
EEG pp <= 0.0) xq pp = .O1; 


"calculate parameters */ 


ES - (xd !- xd p) Pe cea) Cd eect EG xd p) : 1000.0; 
EM (Ido p !- 0.0) ? xf / (wbs * Tdo p) : 1000.0; 

Eu d - al; 

TRO Id PP) ? zad * xad / (zd - xd pp) : 1000.0; 


alpha - (xd p != xd pp) ? (xd - zd pp) / (xd p - xd pp) : 1000.0; 
/* calculate variables */ 


ee. = (rf != 0.0) E uam vid / rf ۹۹+۶, 
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Eer See pp * iq -~ Psi qr 


DONE? = Psi d - xd pp * id; 
eq p = (xf != 0.0) eae = xkd) * ifd 4 2kdq * eg pP) 7 2f 
sad * ifd; 


End = Psi d; 


E1 G = Psi q; 


/* calculate derivatives */ 


HE oue — (Tad !- 0) ? ( eq pp - psi_d) / Tad + wm * pp * psi q + wbs * vd 
n.o: 

Io (Tag '= 0) ? (-psi_q - ed pp) / Taq - wm * pp * psi d + wbs * vq 
0.0; 

EE SPP = (Ido pp !- O) ? (= xd p * eg pp / xd pp + 


25 dup Usd'pp  * psr-d / xd *pp) / Tdo pp : 0.0; 
ODcONBEE'- 0) ? (- aq * ed pp / xq pp - 
EE KIO pe) Tao pp < 0:50; 


aled pp 


BAND = (Ido p != 0) ? 
EE p + (alpha - 1.0) * eq pp + eaf) / Tdo p : 0.07 


/* calculate associated implicit variables (trapezoidal integeration) */ 
/* changed 29 april to use modified trapezoidal method */ 


(Tad != 0) ?‏ ح ہے .ت7 
psu d EE c (dt) * (0.6 t d psi d FE 0.4 * d psi d old)‏ 
ESLEpD - psi d;‏ 
ga = (Taq != 0) ?‏ رت ہک 
ENG 7 psi g old ~ (dt) * (0.6 * drpsir gs 0.4 psi q ola)‏ 
Eq + ed pp:‏ 
meg pp = (rdo pp != 0) 7‏ 
Na es pe ola = (dt) * (0.6 * d eq pp + 0.4 * d_eq pp old)‏ 
AMS Sec pp / “CG pp t eg p t (zd p - xd pp) * psi d / xd pp ;‏ 
mead pp = (Tqo pp !- O) ?‏ 
LN EA PBP Old > (dt) * (0.6 * d ed pp + 0.4 * d ed pp old) :‏ 
E c "ed pp 7 zq pp - (xq = xq pp) * psi oq / Zq pr:‏ 
ep = (Tdo p != 0) ?‏ 
meld E (at) a (0.6 * d eq p + 0.4 % d eg p old )‏ 
Eas ECO p + (alpha = 1.0) * eq pp + eaf;‏ 


/* the zero sequence current should go to zero since sum of currents 


must go to zero if there is no leakage to ground */ 

isum = io; 

/* the sum of the field currents should be zero */ 

ifsum = (i0f + ilf) / I£B; 

Mo talso goes to zero since the zero sequence current is always zero 


and therefore the zero sequence flux can never build up */ 


ecalculate per unit torque of electrical origin */ 


= ode 





f synch mach.c 


HE psi d * iq = psi q * id; ARES 

/* calculate the mechanical Power */ 

Pmech = Tepu * wm * Tbs; 

Peealculate load torque */ 

Eu - 2.0 * H * pp * wm dt / wbs; 

EN ue Te variable is Nm of the torque coming cut of the machine */ 
Ber = Tace - Tepu - Te / Tbs; 

/* integrate the frequency */ 


SS Theta = theta; 


= wm = wm 


s wm dt — wm dt; 

MEL t5 - sS theta old - (dt / 2.0) * (s wm * pp + s wm old * pp); 

/* modified the trapezoidal integration to weight the 'Euler Backward' 
contribution. This prevents the acceleration from oscillating 
should the frequency be held at a constant 
Gi 

cis wm = s wm old - (dt) * (0.6 * s wm dt + 0.4 * s wm dt old); 


EN UD 3acobian switch of* */ 


SS Sn. jacob switch OOF 


=o eZ 





C.4 f speed reg.c 








اعد مئاد اہ 


E: speed reg.c */ 


/* Norbert H. Doerry 
٣۰۰۶ص711‎ 9 


This device describes a prime mover controlled by a mechancial 


governor and attached to a shaft that has windage losses (B). 


The governor is based on the type found on the SSN-637 class 


submarine and described in: 


TET. Dalton 

Turbine Generator Simulations for DD-692 Class 450 KW Machine 

and SSN-€37 Class 2000 KW Machine, NAVSSES Philadelphia Project C-267. 
SS Mareh 1984. 


This particular model was developed in: 
Norbert H. Doerry 

Shipboard Electrical Generator Simulation 
Semester Project Report for 6.238, MIT 
May 1988 


**** Modified 1 May 1989  **x*xx*x* 


changed the control from speed to torque 


لو او جار ماو باو ار او او پا 


Input variables 


s = Primary Amplifier Fulcrum Displacement (inches) (0 to .5) 
Tm = Torque on shaft (Nm) 

wm = Mechanical speed (rad/sec) 

Parameters 

wnlo = 374.72 (rad/sec) base setting for speed 

wds = 62.38 (rad/sec-in) Coefficient for s 

wdTepu = 20.15 (rad/sec) Coefficient for Tmm / TBS 

TBS = Base 6 

D = 32175 (sec) Regulator time constant 

B - (Nmsec) Damping Coeffient 


zternal Output variables 


Imm — Tcrgue seen by prime mover 

Wg = (HZ) Droop frequency 

SMa = power seen at shaft 

Pdeliver = power delivered by the prime mover 


7 


zo 030 54 ج‎ 





f speed req.c 


#include 
#include 
#include 


#define 
#define 
#define 


#define 
tdefine 
tdefine 
#define 


#define 
define 
define 
define 
define 


#define 


#define 
#define 
#define 
#define 


#define 
#define 
#define 


Eech 
<math.h> 
Rdoerrw ms 


wm 
Tm 
5 


Im order 


Tmpu 


۶۰ 


Tmpu old 


wnlo 
wds 
wdTepu 
TES 

Tg 

B 


Tmm 

Im_ 
Pshaft 
Pdeliver 


2 ت-‎ 7٦7 
2--- 0+ ؤ7٦[‎ 


e-»con.in[2] 


e-»con.state[0] 
ec»con.state[l] 
e-»con.old state[0] 
es>con. old state[1l] 


e->con.param[0] 
e->con.param[1] 
e->con.param[2] 
e->con.param[3] 
e->con.param[4] 


e->con.param[5] 


e->con.ext_out[0] 
a On e t outl] 
ENCON ezt Cut |Z] 
e-»con.ext out[3] 


DEG RAD 57.29578 
RAD HZ 6.28319 


ES 377.0 


Epeed reg(e, dt) 
ELEMENT *e; 
double dt; 


{ 


Tmm = 


E (TBS = 


Tmpu 


Im & * wm; 


n 
© 


if (wdTepu != 


{ 


/* find the desired torque */ 


Tm_order = (wm - wnlo - wds * s) / wdTepu; 
Pr gemınslı.32.[0) = (Tmo - Tmpu old) * Tg - 
oe ×۶ 067 19ت‎ 5 * Impu = .5 * Tmpu_old); 


con.jacob in|0]‏ جج 
e-»con.jacob in[1]‏ 


econ. Jacob in[2] 


N 


(B ETECO 
(eGo, TES) * 
(00^ 


(Tg dts eb 
(De seals a eed), 


= oS 





i Speed reg.c 


else 
/* set the speed to the ordered speed */ 
e->con.implicit[0] = (wm - wnlo - wds * 
e-»con.jacob in[0] = 1.0 / WBS; 
da CON. Jacob in[1] = 0.0; 
econ jacob 1n{2)] = = wds / WBS; 
Eugorder — Impu; 

} 

m = Im order; 

EXccon.jacob switch = 1.0; 

Fshaft - Tm * wm; 


Pdeliver - 


Tmm * wm; 


s) / WBS; 


a > 





C.5 f_volt_reg.c 
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EN volt reg.c */ 


E Norbert H. Doerry 


15 April 1989 


E 


E Iude «stdic.h» 
En lnde <math.h> 


include 


#define 
#define 
#define 
#define 
#define 
#define 
#define 


define 


#define 
#define 
#define 


#define 
#define 
#define 
#define 


#define 


#define 
#define 
#define 
#define 


#define 
#define 
#define 


+36 ۶ 16 


#define 
#define 
#define 


define 


define 


deine 


Eust reg(e, dt) 
ELEMENT 


Bdoerry.h" 
vOa e->con.in[0] 
OS e=s>con. 111.1] 
poe e-»con.in[2] 
vOf e->con.in[3] 
wat e-»con.in[4] 
MOE e->con.in[5] 
SIC e-»con.in[6] 
Vbs e=>eon.in|?7] 
wbs e-»con.in[8] 
phase e=>con.in[9] 
¡E espec. in (1L0] 
Vídbs e->con.param[0] /* 
K e-c»con.param[1)] 7. 
EE e->con.param[2] "fa 
Vfmaz e->con.param[3] VE 
Vomin e->con.param[4] /* 
m ec con implicito] 
D es> con. imp lext [1] 
Isum ez com. ıimplieir[2]} 
integrate  e->con.implicit [3] 
Verr e-»con.state[0] 
Vsig e-»con.state[1] 
theta e->con.state [2j 
clip e-»con.state[3] 
EE: old es>con. ola state[l0] 


venromolafe==con. old state [1] 
phetaweldces-ccon.eld state[2] 
es een old Scale [= | 


clip old 


PI2 3 


TWOF I 


ze? 


double dt; 


{ 


2 
£ 


.0943951 
Besen! 


This 1s 
This 1S 
RASS EE 
maximum 


minimum 


SE 


/* This is the desired voltage */ 


forvard DC gain ot error */ 


nominal field voltage 


voltage regulator Time const */ 
i4 
m 


limit for field voltage 
limit for field voltage 





52۰ 510 6.6 


Ele va, vb, ve, vn, vsig, vi; 


Honble cost,costm; 


Ze (Oa + vOb + vOc) / 3.0; 
va = vÛa = vn; 
wo = vO0b - vn; 
Do vOc - vn; 


)0 < 6ں ۶و 
{ 


vt O 
phase -= PI; 


Fzealeulate phase */ 


rs (theta old > TWOPI) theta old -= TWOBLI; 
isle (theta old < -TWOPI) theta old 7 


/* keep the phase angle in a good range */ 


while (phase > TWOPI) phase -= TWOPI; 
while (phase < -TWOPI) phase += TWOPI; 


ied = theta old + wbs * dt; /* euler backwards method */ 


cost = cos(theta + phase); 
EESEmo- cos(theta - PI2 3 + phase); 


MN va = vt * cost ) / Vbs: 


STUB = vt * costm) / Vbs; 


Verr = 1.0 -= vt / Vbs; 


0 ete 02۰۰/۱۰۰۷ ط۶۹4‎ = 1.0; 


OI‏ ےے 4ه ہ_ مت)75 
{ 


/* use a modified trapezoidal integration scheme 


Bucegrate = Tvr * (Vsig = Vsig old) + 


Asia 4.4 Vigil old = .6 * K * Verr = .4 * K * Verr old); 


pro Vit — VOR? 


Y 
Eee tf (clip old == 1) 
{ 


Imeegrote = (Vimax = (vif = vOf)) / Vbs; 


eh ci Sag ola = 


(weight euler back) */ 





It reg.c 


10 0s clone Masversrc.vc 4 *K * Verr old)) / 
Givin mat, .* O. 6) > 


eee {veig + 1.0) * Vidbs; 
} 


else 


{ 
lI cegrate — (Vfmin = (vlf - vOf)) / Vbs; 
sig = (Tvr * Vsig old - 
HL ME n ccuoldoe c .6 TI Vern = 4 *-K * Verr old)) / 
EE 


Betreier + 1.0) * Vídbs; 


Sum = 10£ + 11; 


a b5date the state */ 

DN vr »- Vfmax) clip = 1.0; 

ENS (ví <= V£ímin) clip = -1.0; 
else clip = 0.0; 


/* let the system calculate the jacobian for now */ 


e->con.jacob switch = 0.0; 


= 190 = 
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ina motor.c 


EN und metor.c */ 


Norbert H. Doerry 


15 April 1989 


Ge 


melde <stdio.h> 
#include <math.h> 


#include 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
ddefine 
#define 
#define 
#define 


+#define 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


#define 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


#qefine 
#define 
*define 


#define 


۲۰٢۹2 
vOa e-»con.in[O0)] 
vob e-»con.in[1] 
OC esocon.in[z] 
iOa er >ceon.ıin|[>3] 
10b e-»con.in[4) 
Boc e-ocon-in[5] 
theta e->con.in[6] 
wm e->con.in[7] 
wm dt e-»con.in[8] 
vOn e-»con.in[9] 
ira e-»con.in[10] 
EES e->con.in[11] 
EEE EE Cer LL 
ilā es > con. 1mplicit [0] 
E15 ee een implJelet|)])] 
Tre e -cOn implielt [2] 
lira e=>ceon smplieie|>)] 
IEG e->con.implicit[4] 
iirc €--Con implicit i>] 
Isum e censimplieit[6] 
W es 6 7[ 
Wdot gconexmpiscecrt r8) 
megus e->eon.implicit[9] 
Rs e-»con.param[0] 
Dls e-»con.param[1] 
XM e->con.param[2] 
۹ھ‎ 6 e->con.param[3] 
Ei prime e->con.param[4] 
J e-»con.param[5] 
wbs e-»con.param[6] 
PP e-»con.param[?7] 
B e-»con.param[8] 
Tmech e-»con.ext in[0] 
lam sa e-»con.state[0] 
lam sb e->con.state[l] 
Jam sc e-»con.state[2] 
dlam sa e->con.state [3] 


192 





d and motor.c 


#define dlam_sb €= eon. Stace [4] 
metine dlam sc ezeon.state|5] 
$define lam ra p e->con.state[6] 
#define lam_rb_p e->con.state[7] 
feetane lam rc p e->con.state [8] 
#define dlam_ra_p e->con.state [9] 
#define dlam_ rb_p e=>con.state[10] 
me ine dlam rc p e-»con.state[11] 
E ine theta s ez con state|)2] 
#define w_s e->con.state [13] 
#define w_dot_s e->con.state [14] 
#deZine lam sa old e-»con.old state[0] 
merine lam sb old e-cocon.old state[l] 
EE e lam sc old EE 2 | 
#define dlam_sa old e->con.cld state[3] 
#define dlam_sb old e->con.old state[4] 
Dune dlam sc old es en. o td state 5) 
pdefi2ine lam ra p old e-»con.old state[6] 
mune lam rb p old e=>con.old statel?7] 
mesine lam rc p old e->cen.old state[8] 
#define dlam ra p old eeocconteld state[9] 
ekine dlam rb p old e->con.old state [10] 
#define dlam rc p old e-»con.old state[11] 
maetine theta s old ec con- old 56371 
#define w_s_old e-»con.old state[13] 
define w dot s old e->con.old state [14] 
#define RPM es» econ. est our 0] 
define Te e=>con.ext out[l] 
#define Td e-ocon.ext out [2] 
#define Tl e->con.ext_out [3] 
#define WATTS €=2een, ei out [41] 
#define HP e con est 07 
define Ia e->con.ezt_out[6] 
#define Ib EE 
#define Ic e->con.ext out [8] 
#define TWOPI 6.28319 
na motor (e, at) 
ELEMENT *e; 
double dt; 
{ 

NE I; JF 

Honpse Lis, Llr p, M, Lms; 

Bee Lil, L21 , L41, 151, L61, L44; 

Belisle cost, costp, costm; 


la = 
Ib 


10a; 
305 


I 





f ind motor.c 


Soo: 


le Ss 
- س‎ 


RPM = wm * 60.0 / TWOPI; 

cos (theta); 

cos(theta + TWOPI / 3.0); 
cos (theta - TWOPI / 3.0)»; 


cost 


costp 
costm - 


/* set the default base frequency to 60 HZ if zero */ 


if (wbs == 0) wbs = TWOPI * 60.0: 


/* calculate inductances */ 


MES Xls / wbs; 

Llr p = Xlr prime / wbs; 
M = XM / wbs: 

ms = 2.0 ٭‎ M / 3.0; 

Lil = Lis + Lms; 

NS = Ims / 2.0; 

L44 = Lir p + Lms; 

L4l = lms * cost; 

N = ims * costp; 

L61 = Lms * costm; 


Peecalculate stator fluxes */ 


Ea — Lil + ia + L21 * iOb + L21 * 
E ra + L51 * irb + L61 * irc; 
lam_sb = GZL 10a 4 LIl * 10b + L21 * 
NOU rra + 14] * irb + L51 * ire; 


lam_sc a ZAL UE AOS ebe L21 * 106 + Lil * 
EU" ira + L6l * irb + L41 * irc; 
rE BB >= L4l * 10a + L61 * i0b + L51 

Mica + 121 * 1xrb + L21 * irc; 
lam rb p = sole = 10a + 141 * 106 + L6l 
NS STA 1 L44 * arb + L21 * irc: 


lam rc p = L61 * i0a « L51 * iOb + 141 
Iu ra + L21 * irb + L44 * irc; 


10c + 


10c + 


10c + 


* 


* 


* 


iOc + 


10c + 


10c + 


eer ee Leer the derivatives of the stator £fluxes */ 
Eam sa — vOa - vOn - Rs * 10a; 
Pam sb = vöb - von = Rs * i0b; 
dlam sc = vOc - vOn = Rs * i0c; 


VOLS 





Bernd motor.c 


Alam ra p = -Rr prime * ira; 
dlam rb p = Rr prime GE 
dlam rc p - Ep orgpruamest rro, 


/* do the integrations of the fluxes */ 


Ila - lam sa - lam sa old - (dt / 2.0) * (dlam sa + dlam sa old); 
Bier lam sb - lam sb old - (dt 2:0) (dlam sb + dlam sb old); 
ES lam Sc = lam Sc old = (dt 1 20 > (dlam set dlam se old); 


* 


MS lam ra p ~ lam ra p old - (dt / 2.0) * (dlam ra p * dlam ra p old); 
Noc lam rb p - lam rb p old - (dt / 2.0) * (dlam rb p + dlam rb p old); 
Er lam rc p - lam rc p old - (dt / 2.0) * (dlam rc p + dlam rc p old); 


Edo the current sum */ 


Tsum = 10a + 10b + i0c; 


Powcalculate the torgue */ 


ep * ims * ((10a * (ira - irb / 2.0 - irc / 2.0) + 
OB IS (IRS = nre et 7-2-0): + 
Olen * (are = ira / 2.0 =+ irb 7 72.0)) * sin(theta) + 
(Sert(s.0)/ 2.0) * cos (theta): = 
Eer irc) + 
SUS رک‎ = ira) + 
IE. CIT =~ irb))): 


WATTS = Te * wm; 


HP = WATTS / 746.0; 


Td B * wm; 
ml Tmech + Td; 


N 


Beeque 2 Te = J * wm dt - Tl; 
Mela s = theta; 

ws = wm; 

rent, = = wm dt; 


/* do the integration of the frequency and acceleration */ 


W 2 theta s - theta s old - (dt / 2.0) * pp * (w s + w_s old); 
Wdot — w s - w s old - (dt Er t w_dot_s old); 
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EM witch 3p.c */ 
Norbert H. Doerry 


12 March 


2989 


This routine simulates a 3 phase switch. When a switch is commanded 


to open, 


the switch is left closed until the current has a zero-crossing. 


This means that each phase will open at a slightly different time. 


Closing the switch happens instantaneously 


i 


۶۰۲۳72٣36 <stdio.h> 
femelude <math.h> 
EmucIude "doerry.h" 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
mae. ine 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


#define 


vOa 
vOb 
vOc 
vla 
“lb 
Ic 
10a 
Ob 
OE 
ila 
LD 
ae 
sa 
sb 
SC 
ia 
ib 
Bc 


sa 


sb. 


sc 


ia 


ibo 


ic 


wa. 


vOb 


voc. 
wla. 
pub. 
Re 


BO 


iOb 


iOc 
a — 


ila 


ST 


e-»con.in[0] 
e-»con.in[1] 
e-»con.in[2] 
eS zO )37ء‎ 
e->con.in [4] 
e->con.in[5] 
e->con.in[6] 
e=>con.in[7] 
e-»con.in[8] 
e->con.in[9] 
e->con.in[10] 
e-»con.in[11] 
e->con.state [0] 
e->con.state[l] 
e=>con.state [Z| 
e->con.state [3] 
e->con.state [4] 
e->con.state [5] 
ela encon. old state 


old er con- Old state 


old 6> <6 057۰0 6 


[0 
[3 
IT ES CON Old siate [2 
ES 
ata e->ean.old srate[4 

[r5 


La es >con. old state 


XO DMD زہ‎ Oh oO & WD N PO 


pa 
0 


2 732 


Swi 


meh ec consect in [0] 


swatch 3p(e,dt) 





E 


-— 


3p.c‏ ء2۰۰۰۰۰۰ 


ELEMENT *e; 
geuble dt; 


{ 


a A 
536107۰1 6 va, vb, ve; 


EN L:t:alize the jacobian matriz to zeroes if dt 


mort = O ; dt = 0.0 && i<6 ; itt) 
Py = O ; 7 < 12 ; 3++) 
ELS - s Jacob in[i + 6 * j] = 0.0; 


va = vla - vOa; 
DES Vib - vOb; 
mas vic - vOc; 
ES ila = 10a) / 2.0; 
ES ilb - 10b) / 2.0; 
Mile = 10ec) / 2.0; 
/* see if switch is closed */ 
if (Switch == 1.0) 
{ 
sa = 1.0; 
sb = 1.0; 
ee = 1.0; 
} 
else /* if switch is ordered open, use 
{ 
sa = sa old; 
EE = sb old; 
SC = sc Old; 


tT the switch is closed, the voltage 


Bucscurrent should go to zero */ 
ELE oon. 3mplicit[0) = (sa == 1.0) ? va : 
EL C. eon.implicit(1] = (sb == 1.0) ? vb : 
EL oncimplicit[2) = (sc == 1.0) ? ve 
me (Sa == 1.0) 
{ 
e=-ceon. jacob infO + 6 * vOa ] = - 1. 
SS CON eco in [O + 6 * vla ] = e 
ERE on gacobo2n[0O + 6 * i0a ] = Oz 
ES coll aco in[0 + G6 * ila jJ = OF 
} 
else 
{ 
E conmcgacobssmiOot-6 * voa ) = OF 
e-»con.jacob in[O + Nic = OF 
SS. OIC in [0 +6 * i0a_] = - 0 


۶ کک 


results from last time */ 


should go tc zero, otherwise 


la; 
1b: 


ie: 


(C) (e (e) e 


ne 





ڈ3 ظ6 1 5 


e->con. 


if (sb == 
{ 


e=>con. 
e-»con. 
e->con. 


e->con. 


else 


e->con. 
p»con. 
e-»con. 


p »con,. 


So == 


( 


pe»con. 
e=>con. 
e-»con. 


p»con. 


else 


e=>con. 


e-»con. 


e=>con 


Bn con. 


jacob in[0 


2.0) 


jacob_in[l 
jacob in{l 
3366 16 [1 
pacoo in{l 


jacob in[1 
Jacob in|. 
jacob in[1 
0 inil 


1-0) 


jacob in[2 
Jacon Tin 2 
Jacob ۹ 
Jacob _.2 


Jacob in[2 
jacob in[2 


.jacob_in[2 


jacob in[2 


+++ + 
NH OV OV 


+ + + + +++ + 
€ 01 01 O NHN HW Or 


+++ + 
€ ہت‎ OY N 


٣٠٠ ٢٣٢٣ last three implicit 


ELCcon.implicit([3] 


i0a + 


ia] 


vOb ] 
vib] 
ط30‎ [ 
ilb] 


vob_] 
vlb | 
iOb ] 
235] 


vOc ] 
vic] 
10c F] 
iren] 


vOc ] 
“ler 
i0er] 
end 


variables assure currents are the same */ 


ila; 


I 
Ə 
n 


N 
2 le [2 1> 


rou ow 
۱ 
OO ONE 


ا 


now ot 

۱ 

O O P m 
Sons 


١٢ 
t 
OOo. © 


er 3‏ 9ت 


WM 


J J O O 
mae 


^e. 


=e 


ne 


a Ga) (ey (e 


E on.implicit[4] 


e-»con 


e->con. 
e-»con. 
e=->con. 
ez>eon. 
e->eon. 


e=>eon. 


Ampl icit[5] 


jacob_in[3 
Jacob in[3 
jacob in[4 
jacob in[4 
jacob in[5 


5 8ھ 0 


+ +++ + 4 


0 0 01 ہ0‎ OV ١ی‎ 


see if should open 


if (Switch == 0) 
{ 
sa = (ia * ia old 
Ebe (al * ib old 
sa = (jier* 1G old 


OE € IIB. 


WOE 


the switches 


— 


=> 


he. 


i0a ] = 


ila ] 
i0ob_] 
aioe | 
i0c_] 


ler) = 


0:0) 
00) 
0.0) 


J J y 


kä‏ هم نم نم کم نم 
Oro O oo‏ 


"ae 


00. 0 
ES 


(EEG 


"e 


^". 


(look ESE Zero crossing) 


ne 


ne 


Lo 


/ 





witch 3p.c 









feeeurn the jacob switch on */ 
E Sich = 1; 
E 


EL the external output variables */ 


irt)‏ 7 6 یئ 
RE est out [1] = e=>con.stateli];‏ 


> 
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Breaker 3p.c 


Er breaker 3p.c */ 
/* Norbert H. Doerry 


BEApril 1989 


This routine simulates a 3 phase breaker. When a breaker is commanded 


to open, the switch is left closed until the current has a zero-crossing. 
This means that each phase will open at a slightly different time. 


Closing the switch happens instantaneously. 


The overcurrent switch is based on a psuedo-rms value for the current 


P 

include <stdio.h> 
finclude <math.h> 
#include "doerry.h" 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


vOa 
vOb 


vOc 


e-»con.in[0] 
e-»con.in[1] 
e->con.in[2] 
vla e->con.in[3] 
vlb 


vlc 


e-»con.in[4] 
e-»con.in[5] 
i0a 
iOb 
00 


ec Con- inlis] 
e->con.in[7] 
e->con.in[8] 
ila 
ilb 
Pike 


e->con.in[9] 

e->con.in[10] 
e->con.in[11] 
sa 
sb 


sc 


e->con.state [0] 
e->con.state[l] 
e-»con.state [2] 
ia 
ib 


Te 


e->con.state[3] 
e->con.state [4] 
e->con.state[5] 
ave ia e-»con.state[6] 
ave ib e-»con.state[?7] 


aelic e- >con.sState[s8] 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


t ia 
trib 
Ele 
sa old 
sD old 
sc old 
la old 
erte 
je old 


ave ia 


e-»con.state[9] 

e-»con.state[10] 

e-»con.state[11] 
e-»con.old state[0] 
-ہ‎ 0 6137 5۴3+6 ]1[ 
e consola state [2] 
es confeoldfstate [3] 
e-»con.old state[4] 
es consola state[>] 


mode 


ave IB old 


ave ic old 
define t_ ia old 
#define t ib old 
tdefine t_ic old 


e->con.old state[6] 
e->con.old_state[7] 
e Con old state[s8] 
e->con.old state[9] 
e-»con.old state[10] 
e-»con.old state[11] 
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#define v0a 


#define vOb 


#define vOc 


#define vla_ 
#define vlb_ 
#define vic 


#define i0a 


#define Ob 
#define roc. 


O J- OY OD 4» WN F O 


to 


#define ila 


#define ilb 10 


#define ilc 11 


gdefine Switch e->con.ext in[O0] 


#define f e->con.param[0] 
fdefine I trip e->con.param[1] 
Ere time trip e-»con.param[2] 


/* The following are the states of the switches */ 


#define ALL ON 
#define WRONG 
۲36۶1516 TRIPPED C 
#define TRIPPED O 
#define SW_OFF_C 
#define SW_OFF_O 
#define ALL OFF C 
#define ALL OFF O 


O FPN U bY — 
OOO OOOO OE 


Saker 3p(e,dt) 
ELEMENT *e; 
double dt; 
{ 
nt ; 
double va,vb,vc; 


pre LA se the jacobian matrix to zeroes if dt == 0 */ 


POE == O ; dt == 0.0 && 1< 6 ; itt) 
Sol = 0; 3< 12 ; j++) 
ES con Jacob 1n[1 +6 * j] = 0.0; 


va = vla - vOa; 
vb = vlb - vOb; 


vc = vlc - vOc; 


la = (ila - iOa) / 2.0: 
= (ilb = i0b) / 2.0; 
fte 1061 / 2.0; 


H 


e 


/* see if modes are illegal */ 


zd 





E Breaker 3p.c 


if (sa > 7 || sa < O || sa == WRONG) sa = ALL ON; 
if (sb > 7 || sb < O || sb == WRONG) sb = ALL_ON; 
if (sc > 7 |I sc < O || sc == WRONG) sc = ALL_ON; 
} 
if (Switch == 1.0) 
{ 
ENswitch on(&sa); 
f switch on(&sb); 
f switch on(&sc); 
) 
else 
( 
EEswitch off(&sa); 
f switch off (&sb); 
fpewitch off (Esc); 
) 
/* see if breaker should open */ 
BENE a old >= time trip || t ib old >= time trip ee oldi -= time trip) 
{ 
EEbreaker off(&sa); 
REEbreaker off(£sb); 
r Breaker off(5sc); 
} 
/* if the switch is closed, the voltage should go to zero, otherwise 
the current should go to zero */ 
e->con.implicit[{0] = ((int) sa $ 2 == 1.0) ? va Ja: 
Econ.implicit[1] سے‎ ((int) sb $ 2 == 1.0) ? vb ax 
eS=con.implicit(2] = ((int) sc % 2 == 1.0) ? vc qeu 
1f ((int) sa % 2 == 1.0) 
{ 
E EON: Jacob _ 1n[([0 + 6 * v0a ] = WO 
ee een. jaccb in[0 + 6 * vla ] = 120% 
EL concgacob in[0 4 6 * 102) = 0.507 
E. CoN. Jacob in[0 + 6 * ila ] = 0.0; 
} 
else 
{ 
EL cen-jaceb-in[O + 6 * vOa ] 0:0, 
Secon. jacoblin{O + 6 * vla ) = 0.0; 
SS »eon. Jacob in(0 + 6 * i0a ] = 0.5; 
جج‎ CoN. Jacob 1n(O0 + 6 * ila ] = 0.5; 
} 
تک‎ uUunt) sb + 2 == 1.0) 
{ 
en» con. Jacob in[l +6 * vob ] = I 





f breaker 3p.c 


} 


S-^con.jacob in[l + 


0 


© + 1]ھدد jacob‏ ہب 


Fe eon.jaceb in[]l + 


else 


{ 


e-»con.jacob in[1 + 
Exccon.jacob in[1 + 
EL con.jacob in[l1 + 


E-ccon.Jjacob in[1 + 


Er rnt) sc % 2 


{ 


Er ceon.jacob in[2 + 
e-»con.jacob in[2 + 
Exccon.Jaccb in[2 + 


Ep con.Jjacob in[2 + 


else 


ELccon.jacob in[2 + 
EL con-Jacob in[2 + 
SS Con. jacob in[2 + 


EL con.Jjacob in[2 + 


Oo 


NN N OY NNN N 


NN N Or 


/* the last three implicit 


H 


vlb ] 
10577 
ib] 


vOb ] = 
vlb ] 
105 j 
ilb ] 


vOc ] 


VIE | 


106 | 


H 


371 


vOc ] 


vlc ] 


I 


10€ ] 


lee 


variables 


EZ zen.implicit[3]) = 10a + ila; 
ee conm-implicit[4] = i0b + ilb; 
EE zn.iımplicit[5) = i0c + ilc; 
Expcen.jacob in[3 * 6 * iOa ) Jer 
Seeeen.jyacob in[3 + 6 * ila ) = 1.0; 
es>con.jJacob_in[4 + 6 * i0b_) = 1.0; 
e=>eon.jacob in[4 + 6 * ilb ] = 1.0; 
ERE osn-jacob in[5 * 6 * i0c ] = 1.0; 
asen. Jacob 1n[5 + 6 * ile ] = 1.0; 


O O Pp 
o. o © 


me 


OO OS 
nm oO O 


"e. 


"e "e 


SIN 
SS SS 


"me 


ne 


O O O O 
UMO OQ 


"e 


assure currents are the same */ 


/* see if should open the switches (look for zero crossing) */ 


Ea * ia old <= 0.0) 
Eb * ib old <= 0.0) 
nie * ic old <= 0.0) 


f zero cross(&sa); 


f zero cross(&sb); 


f zero eross[(&se); 


/* update the current timers */ 


/* calculate the rms currents */ 


Ber > 1.0) f£ 
mee({t < 0) f = 


1.07 


o 


e 
, 


/* compute new average */ 


SADA 
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ELM - sqgrt( (1-0 — f) * ia * ia + f * ave ia old * ave ia old); 
AED = sgre( (1.0 - f) * ib * ib + f * ave ib old * ave_ib old); 
ELEC — sqrt( (1.0 — £f) * ic * ic + f * ave ic old * ave ic old); 
t ia - (ave ia >= Ie TO) ? t Aa old 42 dt : 0; 
t ib - (ave ib >= 8 - 2 CE iB ۹ہ‎ +۶ ۹٣ ٤ ر0‎ 
ESS (ave ic >= I trip) ? t_ ic old += dt : 0; 


EVEN the jacob switch on */ 
e-»con.jacob switch - 1; 
/* save the external output variables */ 


Ec 6 1 < 12 ; 14+) 


e=>con+.ext_out(:1] 


e->con.state [i]; 


IES witeh on performs the transformation of states for the 


external input variable turning on */ 


fo switch on(x) 


double *x; 

{ 
af (*x == ALL OFF O) *x = ALL ON; 
else 1f (*x == ALL OFF C) *x = ALL ON; 


else if (*x SW OFF_O) *x = ALL ON; 
SW_OFF_C) *x = ALL ON; 
PRE ESO) Sret urn, 


TRIPPEDIC) return; 


else if (*x 


else ıf (*x 


else ıf (*x 


else if (*x == ALL ON) return; 
else *x = ALL ON; 

} 

£ switch off (x) 

double *x; 

{ 
Ef (*x == ALL OFF O) *x - ALL OFF O; 
else if (*x == ALL OFF C) *x = ALL OFF C; 
else if (*x == SW OFF O) Zeep = SW OFF O; 
cT rg == SW OFF C) *x = SW_OFF C; 
else if (*x == TRIPPED O) *x = ALL OFF O; 
See IE (*x == TRIPPED C) *x = ALL OFF C; 
else if (*x == ALL ON) *x = SW OFF C; 
else Be SV OFE C; 


Pebreaker off (x) 


- O 
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double *x; 
{ 
er (*x = 


else if (*x 


ALL OFF O) *x = ALL OFF O; 
Ek OFF C; 
SW OFF O) be Ly OFF O; 
SW_OFF_C) Fx = ALL OFF C; 
TETETED OJ x = TRIPPED 0; 


else if (*x 


else ıf (*x 


else if (*x 


SIF (*x == TRIPPED C) *x = TRIPPED C; 
else if (*x == ALL ON) *x = TRIPPED C; 
else *x = TRIPPED C; 

} 

zero Cross (x) 

eouble *x; 

{ 
if (*x == ALL OFF O) *x = ALL OFF O; 
else if (*x == ALL OFF C) *x - ALL OFF O; 
else if Cx == SW OFF O) *x = SW OFF O; 
else if  (*x -- SW OFF C) *x = SW OFF O; 
else if کت‎ == TRIPPED O) *x = TRIPPED 9; 
ESL Of. (*x —— TRIPPED C) *x = TRIPPED O; 
else if (*x == ALL ON) eet 
else *x = ALL ON; 


UE 





C.9 f_spst_switch.c 
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BENSspst switch.c 


٦ 05د‎ switch.c */ 
/* Norbert H. Doerry 


MS March 1989 
This file describes a switch 
*/ 


EcIode «stdio.h» 
۶9۲۶-۱ 36 <math.h> 
$include "doerry.h" 


#define vO e->con.in[0] 

#define vil e->con.in[1] 

#define 10 e->con.in[2] 

define il e->con.in[3] 

germe vO 0 

define vl 1 

$define iO 2 

Ene il 3 

Deine Switch e->con.ext in[0] 
$define v e-»con.ext out[0] 


$define i Secon et out | 1) 


رع ة رہ) ط1ت .تک 
ELEMENT *e;‏ 
gesuble dt;‏ 

{ 


double intec(); 


ا 


poU vil: 
Eo 31) / 2.0; 


H < 
Il 


E Second implicit variable is sum of currents */ 
SS implaicit[(1] = 10 + ii; 


Set up the jacobian matrix */ 


EL on. jacob switch = 1; 7e turn jacobDian Switch on */ 
M Switch == 0) /* open >/ 
d 
Pu zen. implicit[|0] = i; 


cnogacebouinlO + 2? v0_] = 0.0;‏ تب 
SS oN Jacob injO 4 2 * vl ] = 0.0;‏ 
SS nyaceboc:xnq0 4-2 * 10 ] = 0.5;‏ 
ee ss Jacob an[O + 2 * 11 ] = -0.5;‏ 
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Wal 
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else /* closed */ 


{ 


E Siensimp seit (0) = y; 


70% | 
zn) 
iO 


e-»con.jacob in[O 


^. 


e->con.jacob in[0 


eso con. Jacob 1n[0 


me 


O CO © O 


+++ + 
A HHH 
+ 
mt 
I 
O Om n 


EE GCN. jacob 1n[0 


"e 


Jacob_in[1l‏ .ےک 


"^ 


EL —on.jacob in[1 SR 
25107) 


Ej 


۱ 
PrP OO 


eS Peon. jacob in[l 


N N N N 
+ 
Oo OF 


me 


+++ + 


It 


e-»con.jacob in[1 


70 پچپے 
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Eugen synch 3p.c 


Er gen synch_3p.c */ 
/* Norbert H. Doerry */ 
/* 12 March 1982 


Bs file simulates a synchronous generator that is modelled as 
a three phase source with a series inductance. The magnitude and 
the frequency of the generator are input variables. The phase angle 


of phase a along with the inductance are parameters. 


Gd 

#include <stdio.h> 
include <math.h> 
#include "doerry.h" 


#define 
#define 
#define 
#define 
#define 


RAD DEG 0.017453293 
DEG RAD 57.29578 

HZ RADSEC 0.15915494 
RADSEC HZ 6.2831853 
PHASE SHIFT 2.0943951 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


#define 


vOa e-»con.in[0] 
vOb 8 9 AN 
vOc ma [2] 
473] 
in[4] 
ino] 
i (6) 
011٦ 
mag e->con.in[8) 


e->con 
e->con. 
von e=>con. 
i0a e->con. 
MOD 
poc 


er>cen. 
e->con. 
Don e-»con. 
Ereg e-»con.in[9] 
#define va 
#define vb 
#define ve 


e->con.state [0] 
.state [1] 
.state [2] 
e->con.state [3] 
.state [4] 
state [5] 
state[6] 
state[”] 
state[8] 
state[9] 


e-»con 
e->con 
#define ia 
#define ib 
define ic 
#define t 
#define 


#define 


e->con 
ec con: 
e=>con. 
vga e->con. 
“abr e=>con. 


#define vgc e->con. 


#define 
tdefine 
#define 
define 
define 
#define 
¿define 
define 
#define 
define 
define 
#define 
#define 


va_old 
vb_old 
verold 
15 ۹ی‎ 
IE old 
ic old 
Enola 
vga old 
web old 
vgc_old 
vOa_ 0 
vOb 1 


voc. 2 


e->con. 
e=>=con. 


e-»con. 


e->con 


e=>Con. 
eg-ccon. 
ES SECON. 
e-»con. 
e=->eon-> 


erer 


old state[0] 
Eed 
old statel2] 


olas tace [3] 


elagstare (4 ] 
eld’state|[>] 
old state[6] 
lad State 1] 
eld state[£] 
ole state[9] 


> 2 





#define vOn_ 
Beine i0a ` 
$define iOb 

define iOc 


#define LOR 


Jo Mm A w 


#define Vmag_ 8 


jeecane freq 9 


#define phase a e->con.param[0] 


T 


Eine L e-»con.param[1] 


define R e->con.param[2] 


genosynch 3p(e,dt) 
ELEMENT *e; 
gouble dt; 


{ 


Ens 1,3; 
double fla ES, feo, fta old, ftb old, fte old; 
Beusle pa, pb, pc; 


Em lIalize the jacobian matrix to zeroes if dt == 0 */ 
for (i = O ; dt == 0.0 SE i <A; i+) 
ے‫ تک‎ = O ; J < 10 ; j++) 
E-oen.gacob in[i +4 * 3] = 0.0; 


Peecalculate states */ 


vOa = vÛOn; 


N 


va 
vb = vOb - vOn; 


VE voc - vOn; 


pci 10a - iOn - iOb - iOc) / 2.0; 
NIE OB = iOn - iOc - iOa) / 2.0; 
Me = (0c = iOn - iOa - iOb) / 2.0; 


Peewucdate the time counter */ 


et 
11 


dt + Coola: 
/* calculate phases */ 
Ene. et * RADSEC HZ + phase a * RAD DEG); 


pa > PHASE SHIFT;‏ چٹ 
E Ba + PHASE SHIFT;‏ 


IO 
w 
i 


ca lculate phase Generator voltages */ 


vga = Vmag * cos(pa); 
BS = mag * cos (pb); 
vgc — Vmag * cos(pc); 


f 


sum of currents should be zero + ر‎ 


Er ensimplsceit| 3] = 303 + i0b + i0c + i0n; 
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EZ Gon. Jacob in[3 + 4 * iOa ] zc. 
EL ou-jacob in[3 + 4 * iO0b ] = 1.0; 
Ex con. jacob in[3 + 4 * i0c ] = 1.0; 
eee oe jacob in[3 + 4 * i0n ] = 1.0; 
e Eee 1E inductance is zero */ 
if (L == 0) 
{ 
E. con. implicit [0] = va - vga; 
ELE —on.implicit[l1] = vb - vgb; 
eS eso. .implicit [2] = ve =- vge; 
Son. Jacob 1n[0 + 4 * v0a ] = 1.0; 
E con.Jacob in[0 + 4 * von J] = -1.0; 


ASES Jacob 1n[0 4 4 * freq ] = Vmag * t * RADSEC HZ * sin(pa); 


ee zon.Jacob 1n[0 + 4 * Vmag ] = - cos(pa); 
FE Sesn.jacob_in[1 + 4 * vob ] = 1.0; 
SS eM. Jacob in[l + 4 * von ] = -1.0; 
Aeon. jacob in[1 + 4 * freq |] = Vmag * t * RADSEC_HZ * sin(pb); 
A esa Jacob in[1 + 4 * Vmag ] = - cos (pb); 
Son. Jacob in[2 + 4 * v0c ] = 1.0; 
ES oN jacob ain[2 + 4 * vOn ] = -1.0; 
EL ou-jacob in[2 + 4 * freq ] = Vmag * t * RADSEC HZ * sin(pc); 
e5-con.jacob in[2 + 4 * Vmag ] = - cos(pc); 
) 
else if (R == 0) /* if leakage resistance is zero, output voltages are 0 */ 
{ 
Bes. implicit[0] = va; 
EL con.impliicit[1] = vb; 
EL con.impixcit[2] - vc; 
Eccon.jacob in[O + * vOa ] - TO 
Aeon. Jacob_in[0 + 4 * vOn ] = -1.0; 


se»con.jacob in[1 * 4 * vOb J] = 1.0; 
Ee eom.jacob in[i +4 * von ] = -1.0; 
ER esa. Jacob in[2 +4" vOc J = 1.0; 
eel JCD in [2 + 4 * vOn ] = -1.0; 
) 
else 
{ 
E c -nosmpirert[O]-e-ia - ia old = (dt/2.0) * 
5٣5 vga) + (va old - vga _old)) / Lb = (va = va_old) / R; 


Secon Empiscic[1]. ib - ab old - (dt/2.0) * 
NI vac) (vb old = vgb old)) EE E 18) / R; 
eril C1 (2| = 1C = ic old - (dt/2,.0) * 
EE vge_old)) / L = (va - va old) / R; 


> 
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eS Peon. Jacob 100 + 4 * iOa ] = 0.5? 
es>con.Jacob in[0 + 4 * i0b_] = -0.5; 
٣٣٠ہ‎ Jacob 110 + 4 * 10¢ ] = -0.5; 
Bacon Jacob in[0 + 4 * ión J] = -0.5; 
con. jacob in[0 + 4 * voad = = dt / 
EL —cn.Jacob in[O + 4 * von ] = - e-»con.jacob _ in[0 + 4 * vOa ]; 
e-»con.jacob in[O + 4 * Vmag ]- cos (pa) 
acen. Jacob 1in[0 + 4 * freq ]= 
a Vmas/ * sin(pa) * t * RADSEC Ho  پٰث!خ8؟‎ ٥ 
Exccon.jacob in[l * 4 * 10b ] = 0.5; 
ELccon.Jacob in[l + 4 * iO0c ] = -0.5; 
E. Gon. Jacob in[l + 4 * i0a ] = -0.5; 
EL o con.Jacob in[l + 4 * ión ] = -0.5; 
eeecon. jacob in[l * 4 * vOb ] 2 - dt / 
E u-Jacob in[1 + 4 * vOn_] = - e->con.jacob in[l + 4 * vOb ]; 
Secon. jacob in[l + 4 * Vmag_]= cos (pb) 
E con.jJacob in[l + 4 * freq J= 
- dt * Vmag * sin(pb) * t * RADSEC HZ / (2.0 * L); 
E con-.jJacob in[2 * 4 * 100 ] - 0.5; 
ER on jacob in[2 + 4 * i0a ] = -0.5; 
Son jacob 1n[2 + 4 * i0b ] = -0.5; 
con + Jacob inl2 + 4 * 10n ] = -0.5; 
Exc acob in{2 + 4 * VOC ] = = dt / (2.0 * L) - 1.0 / R; 
EL ean.jaceb in[2 + 4 * vOn ] = - e->con.jacob in[2 + 4 * vOc ]; 
e->con. jacob_in[2 + 4 * Vmag_]= cos (pc) 
son + Jacob _1n[2 + 4 * freq ]- 
- dt * Vmag * sin(pc) * t * RADSEC HZ / (2.0 * L); 


Ad 


irin the jacob switch on 


- 


E CoN. jacob switch = 1; 
variables */ 


/* store external output 


O E ٠٠ 


Epcon.ezt out [i] = 


Tor i++) 


e->con.stateli]; 


Brus 
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penner.h 


/* penner.h */ 
Norbert H. Doerry 


14 March 1989 


This is an include file which tells the main program where to get 
the proper information for the devices 


u:ENcdified 11 April 1989 by nhd **** 
added breaker 3p 
E Modified l5 April 1989 by nhd **** 


gedded  synch mach, speed reg, volt reg,ind motor,gas turbine, source 
integrator 


BEEN cd:*1ed 27 April 1989 by nhd **** 
wded volt meter 


x 


Emwcdef int (*FUNCTION PTR) (); 
#define NBR DEV FILES 2 /* number of dévice description files */ 


Ec char *device file[] = /* names of the device description files */ 
{ 

eet, 13.411/sepsip/three phase.input", 

ME 13, 411/sepsip/one phase.input" 
E 


Static int nbz device Zile[)] = 


{ 


no, /* number cof devices per file *J/ 
10 
); 
Ec char *device name[] = /* names of devices */ 
{ 
Beeline 3p", 
EI wye", 


Een synch 3p", 
t e di 

'switch 3p", 
"rms LU P 

a reaker Sp", 
"synch mach", 
Mepeed reg", 
Ett reg", 
Ed motor", 


Eras turbine", 


252170 





penner.h 


rote meter", 


Enductor", 
kapacitor", 
resistor", 
"voltage source", 
Tent source", 
anode", 
EUurcch"', 

"pulse switch", 
"source", 
"integrator" 


he 


/* device functions for the above device names */ 


۲۰٠٠٠۰٢ FO t line 3p 
$define F1 rl wye 
$define F2 gen synch 3p 
fe@eeane FS switch 3p 
#define F4 rms 

m cune Fda breaker 3p 
#deZfine F4b synch mach 
#define F4c speed reg 
#define F4d volt reg 
#define F4e ind motor 
E ume F4f gas turbine 
#define F4g volt meter 


$define F5 inductor 
tdefine F6 capacitor 
$define F7 resistor 
$define F8 voltage source 
Ene F9 current source 
#define F10 diode 

peetine Fil spst switch 
Beesane P12 pulse switch 
#define F13 source 
#define F14 integrator 


mae FO ( 
mee El ( 
Ent F2 ( 
ame F3 ( 
Bone F4 ( 
int F4a( 
Ent FA4b(); 





Benner.h 


EEG FUNCTION PIR dev fncetn[] = /* addresses of device functions */ 

{ 
FO, 
EI, 
F2, 
F3, 
F4, 
F4a, 
F4b, 
Fác, 
F4d, 
F4e, 
F4f, 
F4g, 


E 
وك‎ 


F6, 
E, 
F8, 
F9, 
PIO, 
80 
E. 
Els, 
F14 


a 


AMA ës 





C.12 three_phase.input 
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three phase.input 


f three phase.input 

E 

Norbert H Doerry 

EN March 1989 

EE last update 17 April 1989 
MM updated  ٰیی‎ 1989 


! This file describes the following devices 


! pene 3p :transmission line 

: ہمت‎ :RL Wye Load 

1 Sen synch sp  :synchronous generator with synchronous reactance 
switch_3p :three phase switch 

rms :calculates average value of voltage 

breaker :three phase breaker 

i synch mach : synchronous machine model 

! Speed reg :speed regulator model (turbine with governor) 
! volt reg «voltage regulator (field excitation) 

! ind motor unduction motor model 

gas turbine :gas turbine model 

! welt meter :three phase voltage meter 


! 
name t line 3p 
Enputs 12 

vOa 

vOb 

OE 

vila 

Eb 

MIC 

iOa 

0b 

ande 

ila 

ilb 

o 
states 6 

va 

vb 

NC 

ja 

ib 

6ت 
Emplicit 6‏ 

Enteg a 

Enteg b 

Ta eg c 

i sum a 

i sum b 

i sum c 
external cutput 6 

moa. Va 

float Vb 


ESAs VC 


221 o 





Buree phase.input 


Sloat Ia 
most Ib 
(feet Ic 
parameters 3 
R 
n 
R1 
end 
: 
name rl wye 
miputs 8 
vOa 
vob 
vOc 
von 
i0a 
iOb 
OC 
i0n 
states 6 
va 
vb 
ve 
ia 
ib 
ac 
Emplicit 4 
int a 
Ent b 
Ent c 
i sum 
External output 6 
float Va 
Bloat Vb 
float Ve 
meoat Ia 
moat Ib 
ہ5۶۲‎ Ic 
parameters 3 
R 
L 
R1 
end 
! 
name gen_synch_3p 
EDputs 10 
vOa 
MOD 
vOc 
vOn 
iOa 
30b 
Toc 
iOn 
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Vmag 
freq 


States 10 


va 
vb 
e 
ia 
ib 
ac 
vga 
vgb 
vgc 
implieit 
Ent a 
an b 
Ent c 
i sum 
external 
ء۲‎ 
float 
float 
float 
eat 
poat 


gputput 6 
Va 
Vb 
ve 
Ia 
Ib 
LE 


parameters 3 


phase_a 


L 
R 
end 
! 
name swit 
Enputs 12 
vOa 
vOb 
voc 
via 
vib 
vic 
10a 
10b 
10e 
iia 
¿e 
Le 
states 6 
sa 
sb 
Sc 
la 
ib 
ac 


Implicit 


ch_3p 


6 


integ a 
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intecg b 
Enteg c 
i sum a 
i7sum b 
Sum e 
external input 1 
Swatch Switch 
erernal output 6 
Switch Sa 
Switch Sb 
Switch Sc 
rest la 
TiOat Ib 
moat Ic 
end 
! 
name rms 
inputs 2 
vo 
ND 
states 1 
ave 
external output 1 
5 637 
Parameters 1 
I 
end 
! 
Game breaker 3p 
735605 2 
vOa 
vob 
vOc 
vla 
lb 
mlc 
iOa 
10b 
qoc 
ala 
ilb 
Jic 
states 12 
sa 
sb 
sc 
ia 
E 
aC 
ave ia 
Eve ib 
aelic 
tila 
t ib 
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Eric 
implicit 6 

integ a 

Euteg b 

Extec c 

i sum a 

i sum b 

sum c 
external input 1 

switch Switch 
external output 6 

Switch Sa 

Switch Sb 

Switch Sc 

float Ia 

moat Ib 

float Ic 
parameters 2 

f 

trip 

prime trip 
end 
: 
name synch mach 
Enputs 17 

vOa 

vOb 

voc 

von 

10a 

20» 

i0c 

vOf 

vif 

mof 

Ef 

theta 

wm 

wm dt 

Te 

Psi q 

Bei dû 
states 13 

s theta 

S wm 

S wm dt 

psi d 

psi o 

eq p 

eg pp 

ed pp 

0100 d 

d_psi q 

dieg P 
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EE pp 
d ed pp 


۲۰٦ت.‎ 1 


isum 
ifsum 
vo 
ESI d 
MESSI q 
i eq pr 


Seed pp 
meq Pp 


Torga 
W 
Wdot 


parameters 16 


xq 
ad p 


zd pp 
xq pp 


xal 


Ido p 


Ido pp 
Iqo pp 


Tad 
cni 
H 
PP 
wbs 
Mdb 
Pbs 
external 
SAE 
2 ج‎ 
float 
ت200‎ 
Aat 
ENS at 
float 
£loat 
Boat 
float 
float 
2006 
float 
moat 
float 
Sloat 
moat 
float 
soat 
Hoat 
Hoat 
float 


sucput 24 
zad 
del 
Ef 

Ef 
IaB 
DER 
VfB 
Tbs 
alpha 
Tid 
víd 
eaf 
vd 
vq 

ia 

iq 
Tepu 
RPM 
Pmech 
Pe 
race 
la 
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Boat Ib 
meat Ic 
end 
me Speed reg 
Euputs 3 
wm 
Tm 
s 
states 2 
! wg 
! ws 
Order 
Tmpu 
Emnpircit 1 
dT dt 
parameters 6 
wnlo 
wds 
wdTepu 
TBS 
Tg 
B 
external outputs 4 
۶۲73. کہ7 ا‎ 
float Tm_ 
float Pshaft 
float Pdeliver 
end 
meme volt reg 
Monts 11 
vOa 
vob 
MOE 
vor 
Sir 
TOf 
mf 
vbs 
wbs 
phase 
NE 
states 4 
Verr 
Vsig 
theta 
elip 
parameters 5 
Reads 
K 
EMI 
Vfmax 
amin 
ہمت‎ 4 
Dl 
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12 
Isum 
Integrate 
end 
name ind motor 
Euputs 13 
vOa 
vOb 
voc 
10a 
10b 
LOE 
theta 
wm 
wm dt 
von 
ira 
HEB 
acc 
parameters 9 
Rs 
Als 
XM 
Xlr prime 
۶۰۰۰ 6 
J 
wbs 
PP 
B 
states 15 
lam sa 
lam sb 
lam sc 
dlam sa 
dlam sb 
dlam sc 
lam ra p 
lam rb p 
fam re p 
diam ra p 
dlam rb p 
dlam rc p 
theta s 
Ww S 
w dot s 
mpl icit 10 
fila 
ib 
prc 
7پ‎ 2 
e 
prc 
Isum 
W 
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Wdot 
7796 
external inputs 1 
float Tmech 
external outputs 9 
float RPM 
float Te 
۶٢60 Id 
moat Tl 
float WATTS 
Bloat HP 
float Ia 
moat Ib 
oat Ic 
end 
Meme gas turbine 
ineuts 3 
wm 
wm dt 
Tm 
end 
name volt meter 
inputs 6 
vOa 
vob 
vOc 
wbs 
phase 
not 
parameters 1 
Vbs 
۰۰ک‎ 1161. 2 
Ti 
72 
states 1 
theta 
Exernal outputs 2 
float Vt 
float Phase 


end 





C.13 one_phase.input 


dos 





iti 
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! one phase.input 
! Norbert H Doerry 
E .oMarch 1989/ modified 15 april 1989 
: 
! The descriptions for the following devices are contained here 
Enductor 
capacitor 
! resistor 
! voltage source 
! eürrent source 
! diode 
! switch 
! pulse switch 
: source 
! integrator 
! 
name inductor 
inputs 4 
vo 
vl 
10 
1ت‎ 
states 2 
v 
i 
“plicit 2 
integrator 
current_sum 
External output 2 
float v 
loat i 
parameters 1 
L 
end 
l 
! 
name capacitor 
inputs 4 
v0 
MI 
iO 
EST 
states 2 
x 
T 
۲۰۰ 1103.2 
integrator 
current sum 
Epernal output 2 
float v 
Bloat i 
parameters 1 
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end 
l 
I 
name resistor 
inputs 4 
vO 
vl 
0 
11 
geseet 2 
ohms law 
current sum 
external output 2 
float v 
float i 
parameters 1 
R 
end 
! 
d 
mame voltage source 
inputs 4 
vO 
vl 
BER 
il 
implicit 2 
Voltage difference 
current sum 
external output 2 


Boat v 
loat i 
ekternal input 1 
float VO 
end 
+ 
+ 
name current source 
inputs 4 
vO 
vl 
10 
il 


mp licit 2 
current O0 
current 1 

Eternal output 2 
SSAC vV 
Mloat i 

external input 1 
Bloat IO 

end 


+ 
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+ 
name diode 
inputs 4 
vo 
v 
iO 
aL 
3تت‎ 2 
diode law 
current sum 
errzernal output 2 
eloat v 
ENcat i 
parameters 1 
Vd 
end 
name switch 
inputs 4 
vO 
vl 
SCH 
1 
۲٣۰٦۰٦363. 2 
Switch ect 
current sum 
Ecernal output 2 
E oat v 
Bloat i 
external input 1 
switch switch 
end 
: 
: 
name pulse switch 
Enputs 4 
vO 
v1 
10 
mI 
Buplicit 2 
switch eqt 
curzrent sum 
states 1 
time 
External output 3 
Boat v 
= Gal i 
Eewitch switch 
parameters 4 
period 
duty cycle 


t on 


(u) 


Ww 
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= E 
end 
! 
name source 
Enputs 1 
out 
Ernupiicit 1 
difference 
external input 1 
float in 
parameters 1 
^ scale 
end 
name integrator 
E puts 2 

SS 
y 
۲1163. 1 


k 
nn 


integ 
rameters 1 
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APPENDIX D 
MENU DRIVER CODE 


D.1 menu.c 


SEPSIP uses a separate menu driver program for the utility menu. This was done to 
allow the user to customize the utility options without recompiling SEPSIP. By editing the 


file sepsip util.menu, the utility menu can be modified without any recompilation. 





menu . < 


/* menu.c */ 


/* Norbert H Doerry 


A 


arch 1988 

This program is a universal menu driver. It requires 
that another file exist with the same name plus an 
extension of .menu This second file is a text file 
that contains the program header and all the menu 
maformation in the following format : 


( header ) ( As many lines as you would like as long 
as none of them begins with !) 

! (header delimiter) 

string (what the user types in to execute the 
corresponding menu item) 

name (name of menu item) 

command (program or command to be executed) 

"Es (This 3 line sequence repeated) 


! (command delimiter) 


If more than one command is given the same character, 
the first one on the list will be executed. 


The program also puts the following command at the 
ECE Gf the list : 

a 

Quit 


exit () 
us you can't use a q or ! for a character 


A ! inputted from the user will repeat the last 
command executed. 


***** VERSION 2.0 ****x*x*** 


Heavily revised to include the following 
- commands can be up to 10 characters long 
- arguments can be passed to the commands 


- arguments can be passed to the program 


#include <stdio.h> 
#define CHRLEN 81 
#define ARRLEN 21 


typedef struct Cmd 


{ 


} 


char string{CHRLEN]; 
char name [CHRLEN]; 
char command{CHRLEN]; 


struct Cmd *next; 


CMD; 
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main(argc, argv) 
Ent argc; 
char **argv; 
( 
char comm[CHRLEN]; /* name of this program (minus path) */ 
char command [CHRLEN] ; /* name of this program (with path) */ 
char inline[CHRLEN]; 
char line[CHRLEN]; 
char outline[CHRLEN]; 
char last _command[CHRLEN]; 
char last all[CHRLEN]; 
inr, numemd, flag, len; 
EILE *in; 
Ghar ch; 
CD emd, *cptr; 
char *calloc(); 


SErepy (command, argv(0]); 


strcat (command, ".menu"); 


len = strlen (argv[0)); 
for (i=len; ((i != -1) && argv[O]li) != ’/') ; i--); 
IL 


EIS = 0 ; i <= len ; i++) 
comm[3++] = argv[0]([i]; 


if ((in = fopen (command, "r")) == NULL) 
{ 
Beimet(UCan’t find %s\n", command); 
exit (); 
) 
nine [0] = NULL; 
while ((fgets(inline,CHRLEN, in) != NULL) 4££ inline[0] != '!') 
( 
inline[(strlen(inline) - 1)} = NULL; 
puts (inline); 


eptr = &cmd; 
eptr->next = NULL; 
while (1) 

( 


/* get command string */ 


if (fgets (inline, CHRLEN, in) == NULL) 
break; 


eerstrip(inline); 


if (inline[0] == '!') break; 
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inline(11] = NULL ; /* limit to 10 characters long */ 
Frrepyv(eptr->string,inline); 
/* get command name */ 


if (fgets(inline,CHRLEN, in) == NULL) 
break; 


strstrip(inline); 
strcpy (cptr->name, inline); 
/* get command exectution string */ 


if (fgets(inline,CHRLEN, in) == NULL) 
break; 


strstrip (inline); 

strcpy (cptr->command, inline) ; 

/* allocate new CMD structure */ 

Sere -enext = (CMD *) calloc((unsigned) 1 , sizeof(CMD)); 


eptr = cptr->next; 
eptr->next = NULL; 


ESEPV(cptr-»string, q"):; 


Eerepy(cptr->name, "Quit"); 


Errepy(eptr->command, "exit ()"); 


strcpy (last _ command, cmd.string); 


Setrepy (last all,cmd.string); 


inli 
EOT 


{ 


} 
flag 


whil 
{ 


ne [0] = NULL; 
(1 = 1 ; i < argc ; i++) 


strcat (inline, argv[i]}); 
Sercat(inline," "); 


= (inline[0] ! NULL) ? 1 : O; 
e (1) 
if (flag == 0) 


{ 


printf("\n $s CBE1SRS:\A\N 7ء‎ 


٣۶-٠) 2< ۰ - مت :ذ۲ت‎ != NULL ; cptr = cptr->next) 
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printf(" %10s :: %s\n", cptr->string, cptr->name); 
pront Enter Option : "); 
gets (inline); 


eerstrip(inline); 
/* see if should repeat last command */ 
Bra stremp(inline," !!") == 0) 

strepy (intine, last all); 


else 


strcpy (last_all, inline); 


Strip off command from arguments */ 


m5 — وی‎ inline[i] != NULL && inline[li] !=' ' && 
inline[i] != “At” ; i++) 
{ 
inel] inline[i]; 


unline[i] = ' '; 
} 
line[i] = NULL; 
strstrip(inline); 


/* see if its an exclamation marker , if so, copy last command */ 


Em stremp(line,"!") z—- O || stremp(line,"!!") == 0) 
strcpy(line,last command); 


/* find the proper command */ 


r SGI! = £emd ; eptr != NULL ; cptr = cptr->next) 
if (stremp(cptr->string, line) == 0) break; 


pewecontinue if didn’t find the command */ 
if (cptr == NULL) 
{ 
flag = 0; 
printer (Xan *** Command Not Found\n"); 
continue; 


/* quit if cptr-»nezt is NULL */ 
q P 


if (cptr->next == NULL) 
exit (); 


/* manufacture the system call */ 
strepy (outline, cptr->command) ; 


Sereat(outlıne," "); 


sftreat(outline,inline); 
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/* update last command */ 

strcpy (last command, cptr->string); 

/* print message if flag = 1 */ 

(flag == 1) printf("\n Executing : $sinin",outline): 
/* execute the system call */ 

system(outline); 

/* see if flag is set */ 


if (flag == 1) exit(); 


BN trstrip */ 
pewstrstrip strips a string of leading and trailing spaces and tabs */ 
strstrip(s) 
char *s; 
{ 
3۰7م 3ت3‎ 
Ena first non space or tab */ 
AS = 0 :; sli] ==" * ||- s[i] == 'Nt' ; itt); 
copy string */ 
mrtg — 0 ; s[i] != NULL ; s{j++] = sli+t+t)); 
s[3] = NULL; 


/* delete trailing spaces and tabs and Cr*/ 


for (j = strlen(s) ~- 1 ; s[3] == * * ]1 s[3] == 'At” || 
s[3] == 'An” ; s[j--] = NULL); 


LAOS 





D.2 sepsip_util.menu 


The executable code for the menu driver listed in the previous section is in the file 
sepsip_util. The menu text must therefore be located in the file sepsip_util.menu which 1s 


listed here: 


Editor -> emacs 
/mit/13.411/sepsip/emacs 


Plotting => Norplot 
Pole, 13 All/menu/ aterm /mit/13.411/norplot/Norplot 


host Directory 
is -al 


Execute System Command 
/mit/13.411/menu/sys 


Screendump to Default Printer 
Dude or device ps | lpr 





APPENDIA E 
PORTABILITY CONSIDERATIONS 


In the development of SEPSIP, portability considerations played a major influence. A 
number of SEPSIP's attributes and its structure are a direct result of the desire to be able to 
easily transport the source code to other computer systems. There are however, several files 
that may need to be edited for proper operation on other systems: 

file options.c 

The function change directory() may require modification on systems not using 
the UNIX operating system. The rouune presently makes one system call to pwd 
to list the present working directory. Furthermore, the system library function 
chdir() may not be available on all systems. Eliminating the contents ofthis routine 
will only affect the change directory option of the 

sepsip.c 

The beginning the file sepsip.c contains two define directives that are system 


dependent. These statements and their present assignment are: 


#define DIR "Is -al" 


#define CMD "/mit/13.411/sepsip/sepsip_util" 


DIR is a string containing the system command for listing the current directory. 


CMD is the path and name of the menu driver for the utility option. 


ED 





APPENDIA F 
SEPSIP SOURCE CODE 


E 


sepsip.con 


SEPSIP.CONFIGUR 


Norbert H. Doerry 
Ey March 1989 


This is the latest configuration of SEPSIP as of 19 April 1989 


Version 1.0 of 27 March 1989 


check name.c l March 1989 


check name() 


dump data.c 13 Maren 1983 


dump_data () 


dump_device.c 15 March 1989 


dump device () 


EE Simulate.c 10 April 1989 


edit eimulate() 
cdit time) 
edit jacob() 
edit display() 
delete py () 

add pv() 
cedorecett) 
split elm() 
splitwreri) 


elm jacob.c 6 March 1989 


elm jacob() 


Lileroptions.c 197Apr1121989 


file options () 
write sim() 

read sim() 

write init() 
ee 0٦)) 

change directory() 


Baussreliminate,c 14 


gauss eliminate () 


377069 >۔‎ 18 
integ () 

Toljiba.c 25 
stofa() 
stoda(). 


*** this routine is system dependent *** 


February 1989 


October 1988 


March 21989 
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Stofa() 
Stoda() 
getflta() 
fgetflta() 
parse () 
Parse () 
suctolc() 
SICESUC () 
strcmpa () 
strncmpa() 
strsplit () 
seretrip() 
strextract () 


2x seecfrile !ro011ba.help" for details *** 


load device.c 22 October 1988 


load device () 


sad element.c 9 January 1989 
lSad element () 


mad 1533186 20 January 1989 
Poad initial() 
open include () 
2706 3 ٤٦ 
cead 26ت‎ 7037 ( 


read node volt() 


load network.c 26 January 1989 


load network () 


load simulation.c 27 January 1989 
load simulation () 
۶69۲4 1061 ( 
read display() 
ظط‎ 3 () 
nosdarctcrenee0 
Sel defaults) 


make jacobian.c 15 February 1989 
make jacob() 


print network.c 18 January 1989 
Print’network() 


line counter () 


read device.c 6 March 1989 


e 800 8٦ 


read element.c 25 October 1988 


read element () 
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read network.c 17 April 1980 
read_network () 
read sub_node () 
count char () 
make str() 
fgets multiple() 


sepsip.c 10 April 9 
main () x** This routine is system dependent *** 
load fi le() 
get filename () **"*" This routine is system dependent *** 
display_data() 
utilities () 


setup simulation.c 28 February 1989 


setup simulation () 


simulate.c 14 March 1989 
**** Revision a: 29 March 1989 


run simulation() 
initialize simulation () 
cale uimplicit () 
implicit error () 

make implicit () 
check_queue () 

update variables () 
print output () 

print matrix() 
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/* 
/* 


El 
/* 


*/ 


check name.c */ 


Norbert H. Doerry 
1 March 1989 
This routine checks all the element names and node names to ensure that 


they are not multiply defined. It then checks the subnode names for each 
node and ensures they aren't multiply defined 


femeclude <stdio.h> 
#include <math.h> 
#include "doerry.h" 


check name (nn,nnode, ee, nelm, errflag) 
DODE **nn; 

int nnode; 

ELEMENT **ee; 


int nelm; 


Entoc*errflag; 


{ 


BENES S, j,k; 
/* check the element names */ 


fo — 0 ; 1 < nelm ; 1++) 


{ 
/* see if another element has the same name */ 


nelm ; j++)‏ < 3 ;1 + 1 = تج 
( 
if (strcmp(ee[i)-»name,ee[j]-»5name) == 0)‏ 
( 
printf (" *** ERROR : ELEMENT ts multiply defined\n",ee[i]->name);‏ 


*kerrflag = 1; 


/* see if a node has the same name */ 


TE: 0 j « nnode ; jtT*) 
{ 
if (stremp(ee[i]J->name,nn[j]J->name) == 0) 
{ 
printf(" *** ERROR : *s defined as both ELEMENT and NODE\n", 


ee[i]->name); 


*errflag = ]; 


/* check the node names */ 
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MOE = O ; 1 < nnode ; i++) 


( 
/* see if node is multiply defined */ 


ECT = 1 + 1 ; j < nnode ; j++) 
{ 
if (stremp(nn[i}->name,nn{[j}->name) == 0) 
{ 
printf(" *** ERROR : NODE $s multiply defined*Mn",nn[i]-»name); 
*errflag = 1; 


/* check the subnodes out */ 


E03 — 0; j« nn[il-»nbr subnoede ; jt-) 
( 
er (KC = SS + le k < nn{ijJ->nbr_subnode ; k++) 
{ 
if (strcmp(nn(i)->subnode(3)]->name, nn(i)->subnode [k)->name) == 0) 
{ 
printf(" ERROR : SUBNODE %s : %s multiply defined\n", 
nn{[i}->name,nn[i)J->subnode [j}->name); 


*errflag — 1; 
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/* commands.c */ 
/* 29 November 1988 


éi 


Norbert H. Doerry 


This file contains the code for the following commands of SEPSIP: 


device summary 
display device 
element summary 
display element 


include <stdio.h> 


#i 
xl 


/* 


7 


de 


nclude <math.h> 
meluas "doerry.h" 


Device Summary 


This routine presents a list of all the available devices. If the 
output stream is stdout, the user is prompted to hit the return 
key after a page has been printed out. A Toi will terminate the 
Fisting. 


vice summary(dev,ndev,out) 


DEVICE **dev; 


in 
ET 
{ 


t ndev; 
DE Out > 


tiem, page, lasti, flag; 
char inline (MAXCHAR]; 


Berantf (out, "\n\n -- 


DEVICE SUMMARY ---Mn"); 


for (i = lasti = flag = O,page = 0 ; i < ndev ; i++) 
{ 


/* see if should start a new page */ 


ar i $ (CINESTEBRAFAGE A) =— 0 && i != ndev = 1) 
{ 
Pagert, 
if (flag != 0 && out == stdout) 
{ 
puta Ad Enter <RETURN> to continue : "); 


gets(inline); 

sterstrip(inline); 

if (inline[0] == ’q’ || inline[0] 

Sf (inline(O0] == 'b' || inline [0] 
{ 


ou), return» 
' B^) 


1 
1 


a rer 122 LINES PER PAGE t 4; 


zd 
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ie (i 0) ie 0; 

page -= 2; 

if (page < l) page = 1; 
lasti -= LINES PER PAGE - 4; 
Peer 0) Jastı = 0: 


else 


lasti = i; 


} 
flag = 1; /* used to prevent starting of new page */ 


Berimtf (out, "\n\n --- DEVICE NAME --- (PAGE %d) \n\n" 
page); 


/* print out the element names */ 
Berintf (out, " £sWXn",dev[i]-»name); 
/* see if at end of listing */ 


if ( 1 == ndev - 1 && out == stdout) 
{ 
Prinef("\n SUMMARY COMPLETE : Enter <RETURN> to continue : "); 


gets(inline); 


mro(niine[0] == 'b’ |} inline[0] == ’R’) 
{ 
flag = 0; 
fewest = GINES PER PAGE + 3; 
AO) 3 = =]. > 


page -= 2; 
if (page < 0) page = 0; 
ESC 2> LINES PER PAGE - 4; 


E Mast € O lasts = 0; 


EEplavodevice(dev,ndev,inline) 
DEVICE **dev; 
int ndev; 
char *inline; 
{ 
char inlin[MAXCHAR]; 


Ent 1; 


ull off device name if it is there */ 


LOIS 
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EUrstrip(inline); 
inline([0]) =’ '; 


BEEPESUrErip (inline); 


if (inline[0] == NULL) 
{ 


/* prompt user for device name if not specified on command line */ 


Printf("\n\n Enter DEVICE NAME : "); 
gets (inlin); 
Seestrip(inlin) ; 
if (inlin(0] == NULL) return; 
) 
else 


Secepy (inlin, inline); 


for (i = 0 ; i < ndev && stremp(dev[i]->name,inlin) != 0 ; i++); 


if (i == ndev) 
{ 
Euntf('XnWin ***ERROR : $s does not exist\n\n",inlin); 


return; 


print device (dev[i],stdout); 


Beiner("\n DEVICE DISPLAY COMPLETE : Enter «RETURN» to continue : "); 
gets(inlin); 


element summary (e,nelm, out, line) 

ELEMENT **e; 

int nelm; 

PARE “out; 

char *line; 

( 
Baer), lastj|20),page, lasti, flag: 
char inline(MAXCHAR]; 


Strip off first character of line and any following spaces or tabs */ 
efrstrip(line); 

Iane[0] = ’ '; 

strstrip(line); 


Errimtf (out, "\n\n --- ELEMENT SUMMARY ---\n"); 
O, /* pointer to first element */ 


Gast (0) = 0; 
page = 0; 
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flag = 0; 


for (ii = ویو‎ ; i < nelm ; it+) 


{ 


MOS == (LINES PER PAGE - 4) || i == 0) && i != nelm - 1) 
{ 
J => 0; 
page++; 
1f (flag != O ££ out == stdout) 
{ 
En Enter «RETURN» to continue : "); 


gets (inline); 

stzstrip.(inline),; 

if (inline[0] = 

if (inline [0] 
{ 


ii 


1 
il 
O 


return? 


1 
H 


—niine[9]‏ 5ئ 
"pu nermero]‏ 


N 
H 
D 


page = (page <= 2) ? 1 : page - 
7> ٦ذ5‎ page = 1); 


H 
N 


} 


else 


{ 
lastj (page - 1] = i; 


} 


Il3G 1l /* prevents prompting for return for first page */ 


erint f (out, "\n\n --- ELEMENT NAME --- (PAGE %d) \n\n", 
page); 


/* print out the element names */ 


mane [0] == 'a' || e[lnelm - 1 - i]->£flag ses 1) 
{ 
Morenci. (out, $205 | %-30s",e[nelm - 1 - i]->name, 
e[nelm - 1 - i]->device->name); 
if (e[nelm - 1 - ij]->£lag == 0) 
و ج2‎ ١ ۳۰۰ج وہ)‎ ۲۸۶۶ Not Used ***\n"); 
else 


Bezinef(out, ""\n"); 


j++; 


/* see if at end of listing */ 
if ( i == nelm - 1 && out == stdout) 
{ 
Ean mM SUMMARY COMPLETE : Enter «RETURN» to continue : "); 


gets (inline); 


inline o] =="b" || inline[0] == 'B') 


HS 
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flag = 0; 
page = EI : page == 2; 
i = lastj{page) - 1; 


j = LINES PER PAGE - 4; 


display element (e,nelm, inline, q, nq) 
ELEMENT **e; 
int nelm; 
anar “inline; 
QUEUE **q; 
Ent nq; 
{ 
char inlin[MAXCHAR]; 


lunt i: 
/* pull off element name if it is there */ 


ELrstrip(inline):; 
EpDESme[0)] = ’ '; 


Strstrap(inline); 


BE ni:xne[0] == NULL) 
{ 


/* prompt user for element name if not specified on command line */ 


print£("inin Enter ELEMENT NAME : "); 
gets(inlin); 
Erscerip(inlin); 
if (inlin[0) == NULL) return; 
} 


else 

Serepy (inlin, inline); 
Era = 0 7 1 < nelm && strcmp(e(i]-»5name,inlin) !s 0 ; i++); 
if (i == nelm) 


{ 
printf("\n\n ***ERROR : %s does not exist\n\n",inlin); 


return? 


Pernt element (e[1i)],stdout,q,nq,i)? 
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perme element (ce, out,g,ng, eptr) 
ELEMENT *e; 
FILE *out; 
DUEUE **q; 
inb nq; 
int eptr; /* pointer in element array */ 
{ 
char inline [MAXCHAR]; 
iat, ),k, 1; 


fprintf(out,"\n\n Element : %-20s <> Device : %-20s\n\n", 
e->name, e->device->name) ; 


fprintf(out," Element Parameters : \n\n"); 
B9 0,1720; j < e->device->nbr param ; i++, j++) 
{ 
۳۰۰٠٢٢۷) ۰ظ ہہ‎ 220s : $10.5gin", 


en deyiee>param namel[3] , e->con+.paraml3)])7 


/* after (LINES PER PAGE - 4) lines, wait for user to hit return 


before continuing */ 


df (ib (LINES PER PAGE - 4) == 0 && i != O && out == stdout) 
{ 
Ane Hit «Return» to continue : ۶ 
gets (inline); 


etrstrip(inline); 


if (inline[0] == "q" |I| inline[0] == 'Q') return; 
if (inline(0] == 'b” || inline[0O] == 'PB’) 
{ 
6ہ‎ 2 7+ (CINES PER PAGE > dj; 


EDD DT o; 


SE DEE est out > 0) 
{ 
printf (out, "in External Output Variables : \n\n"); 
i++; 


BOE) => 0 7 j € e-»2con.nbr ext out ; jtt,itt) 
{ 
Eee Int EGO, 1 205 : 312g\n", e->device->ext out name[j], 


es = con ext outlj]); 


/* Pee con switch ext out[j) == 0) 
fpr nti EN Eet A : 
else 
Tpesnefione, 'ON\n"); */ 
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/* after (LINES PER PAGE - 4) lines, wait for user to hit return 
before continuing */ 


if (i$ (LINES PER PAGE - 4) == O0 && i != 0 && out == stdout) 
{ 
ponte (Are cRetuen> to continue : "); 
gets(inline); 


serstrip(linline); 


at w(rniine|O] == ’q’ || inline(0} == ’Q’) return; 
an lane (0]== 'b' || inline{0] == *B*) 
{ 
RUDI * (LINES FER PAGE = 4); 


if (j < 0) j = 0; 
} 


ENe-»ocon.nbr ext in > 0) 


{ 


Epr»sntf(ont,"Xn External Input Variables : \n\n")}; 
eerintf (out, " Time = Variable : Value\n"); 


مت 


EN runt out initial values of all the External Input Variables */ 


AS 0 j « e->con.nbr ext in ; J++, i++) 


( 


EINE (SUE, 38.3f :: $-20s : t£\n", 0.0 , 
e->device->ext in name(3] , 


e-»con.init ext in(j]):; 


E after EINES FER PAGE 3) lines, wait for user to hit return 


before continuing */ 


if (1% (LINES PER PAGE - 4) == 0 ££ i != 0 ££ out == stdout) 
{ 
Ponce (Hato <Retuen> to continue = "); 
gets(inline); 


Strstrinpl(inline); 


ESERO => o || inline[0) == 'Q') return; 
if (inline(0] == 'b’ || inline(0) -- 'B') 
{ 
j -= 2 * (LINES_PER_PAGE - 4); 


if (3 < 0) 3 = 0; 


ES 
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/* print out entries for this element in QUEUE array */ 


tee 07 } S nq ; J+H) 
( 
lif (q[jJ->elm != eptr) 


continue; /* not this element */ 


Petr (out) $B.3f :: *-208s : %f\n", q[j]->time, 


e-2device-»ext in name[q[j]-»var) "esie 2 


/* after (LINES PER PAGE - 4) lines, wait for user to hit return 
before continuing */ 


Br 


Br (1% (LINES PER PAGE - 4) -- O && i ! 0 && out == stdout) 
( 
Printer HIE “<Return> to continue : ۰۶, 
gets (inline); 
Strstrip (inline) ; 
if (inliine(0) == 'q' || inline [0) 
if (inline[0] == 'b’ || inline[(0) == 'PB’) 
{ 


1 
Il 
O 


return; 


j -= 2 * (LINES_PER_PAGE - 4); 
E O 35 = 0; 


E e=>con.nbr inputs > 0) 
( 
Errintf(out, "\n Input Variable Initial and Present Values : \n\n"); 
ELT 


Eg — 0. j &e-»2con.nbr inputs ; jtt,itt) 
( 
eerintelout,' $20s : %129 : t1l2q\n", e-»device-»input name[3j], 


Seon. init, 1m[ 7) ,,e=-con.1n[ 7) ); 


pewatter (LINES PER PAGE - 4) lines, wait for user to hit return 


before continuing */ 


TE OG (LINES FER PAGE = 4) == 0 && i != 0 && out == stdout) 
{ 
erimer (shot <Return> to continue : "); 
gets (inline); 
Steresfrip(inline); 


if (inlinel0] == a’ || inline(0] == *0') return; 
Aline (0) == 'b' || inline[O] == 'B') 
( 
j 3R (LINES_PER_PAGE ea 
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if (3<0)3j=0 


WM 


Dbar states » O)‏ ہ۳۶6 
( 


BoronnbEf(out,"Xn State Variable Initial and Present Values : WMnMn"); 
Bp. 


BE — 0; j€« e-»con.nbr statés ; jtt,i*-*) 
( 
fprintf(out," $20s : $12g : %12g\n", e->device->state namelj], 
e->con.init state[j],e->con.state[j]); 


/* after (LINES PER PAGE - 4) lines, wait for user to hit return 
before continuing */ 


lf (iš (LINES PER PAGE - 4) == 0 && i !- O && out == stdout) 
( 
printer (Ae <Return> to continue : "); 
gets(inline); 
serstrip(inline); 
Een lınel0] == “q” || inlinefo 
if (inline[0)] == 'b 
{ 
j -= 2 * (LINES PER PAGE - 4); 
if (j < 0) j = O; 


] == ’'Q’) return: 
) -- 'B') 


' || inline [0 


EEMS-con.nbr implicit > 0) 
{ 


fprintf(out,"\n Implicit Variable Present Values 
ift; 


"nnt 


EEUU 0 5 « e-»con.nbr implicit ; 3++,1++) 
( 
EE $20s : $12gXn", e-»2device-^implicit name[j], 
E CoN 10061076 1-0 7 


/* after (LINES PER PAGE - 4) lines, wait for user to hit return 
before continuing */ 


if (i% (LINES PER PAGE - 4) == 0 && i != 0 && out == stdout) 
( 
printf(" Hit «Return» to continue : "); 
gets(inline); 


strstrip(inline); 
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ler a’ I| inline[(0] s 'Q') return; 
0 =p” || inline([0] —S»R') 
{ 
37 -= 2 * (LINES PER PAGE - 4); 
EIT OS = OF; 
} 
} 
} 
} 
E con nbr inputs > 0 && e->con.nbr_implicit > 0) 
{ 
fprintf (out, "\n Jacobian Matrix Present Values : \n\n"); 


mr, 


E — O 7 1 * 5 < e-»con.nbr inputs ; lt-*) 
{ 
l5 0 5 j < e-»con.nbr implicit ; j** , i++) 
{ 
E SSSI; e=>con mbr inputs && k < (1 + 1) * 5 7 k++) 
Pott EIS € con. Jacob in([) + e->con.nbr implicit * k]): 
Printi Nn"); 


Aa tert (BINESSPER PAGE <= qd) lines, wart for user to hit return 


before continuing */ 


SEI IS EINE TER TAGE — 4) == 0 CE 1 != 0 && out == stdout) 
{ 
moner Aari < Return toa Continue "), 
gets (inline); 
strstrip (inline); 


mu uniine[0]ez "g^ || àanline(0] se 'Q^) return; 
if (inline(0] == 'b’ || inline([0] == 'B') 
{ 
j -= 2 * (LINES PER PAGE - 4); 


ue 988010 9-7 


} 
pruntt('An'"); 


Ent == stdout) 
{ 
eorn Ann ELEMENT DESCRIPTION COMPLETE :"); 
Pernt ( Enter <RETURN> to continue : "); 
gets(inline); 
) 
Borintf(out,"Win"); 
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print device description(k,name,param,nbr,out,types,flag) 
Ent *k; 
char *name; 
char **param; 
Ent اط‎ ?; 
EIDE out; 
ae “types; 
ne flag; 
{ 
Bnt 1i; 
char inline [MAXCHAR]; 
د52۲‎ 360 char *typ[] = 
{ 
"Boolean", 
Switch", 
"Integer", 
"Float" 


/* see if the number of elements to print is zero */ 
IT MBI <= 0) return O; 
/* see if new page before the listing */ 


if (*k + 5 > LINES_PER PAGE && out == stdout) 
{ 
*k = 0; 
EEInEf(\n Enter <RETURN> to continue : "); 
gets(inline); 
strstrip(inline); 
if (inline[0] == 'q* || inline[0] == 'Q') 


return |: 


Eprintf (out, "\n %s\n",name); 


for = O ,(*k) += 2; i < nbr; i++ , (*k)++) 
{ 


if (flag == O || types[i] < O || types[i] > 3) 
sprintf (out , " %s\n",param{[i])); 
else 
tbprcrntf(out , " $-7s : *tsWMn",typ[types[il], param[i]); 
if (*k + 2 == LINES PER PAGE && out == stdout) 
{ 
*k = 0; 


Print (Na Enter «RETURN» to continue : "); 
gets(inline); 

serstrip(inline); 

if (inline[0] == 'q’ || inline[0] == 'Q”) 


return |” 


EOM 
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} 


return 0: 


Print device (d, out) 


BEVICE *d; 
FILE *out; 
{ 


amt i,k: 


char inline[MAXCHAR]; 


fprintf (out,"\n Device *3d : %s\n",d->type,d->name); 


ر2 ح طط 


rt lpmunt device description(&k,"' 


Input Variables", 


d->input_ name, d->nbr_inputs,out,«i,0) == 1) 
Return; 
Print device description(«k," State Variables", 
d->state name, d->nbr states, out,£i,0) == ]) 
return; 
Ap int device description(£k," Implicit Variables", 
d->implicit name,d->nbr_implicit,out,&i,0) == 1) 
Return; 
D PrInt device description(&k," External Input Variables", 
az ext In name, d -nBr erti in, out, 
d->type ext_in,1l) == I) 
266 7/2 
TI BEInt device description (&k," External Output Variables", 
d->ext out name, d->nbr ext out, out, 
A EP ELE One) SO 
return; 
ar (print device description(&k," Parameters", 
d->param_name, d->nbr_param, out,&i,0) == 1) 
return; 
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Edoerry.h */ 


/* Norbert H. Doerry 


28 Sept 88 


modified 9 Jan 89 
modified 15 Feb 89 


Tis include file is designed to test the configuration of interface 
structures for my thesis. 


The variables are divided into the following categories: 


input variables : variables that are connected to system nodes. These 


variables are all implicitely defined. 


state variables : variables that represent the internal state of the 


devices. This is not a 'state' in the strict sense 
of the term. It is instead a variable whose value 
must be ‘remembered’ to determine the next state 

ot Che device Ihe old state" variables are the 
value of the state variables during the last 

time step. 


implicit variables : variables that are driven to zero in the Newton 


Raphson method. 


external inputs : variables that the operator will be allowed to change 


directly during the execution of the simulatiion. 


These inputs can be of the following types 


Boolean ( True or False) 
Switch COR SE Off) 
Integer 

Floating Point 


external output : variables that the operator can select to display during 


Parameters 


the simulation or have saved to a file for plotting 


These are the specific parameters for a device 


which may be different for different elements 


There are also several other definitions that must be made 


DEVICE 


ELEMENT 


is a model of an electrical machine, device, or node. 


(i.e. an Inducton Motor Model would be a device) 


is an actual circuit element of type DEVICE. Note that 
there can be multiple ELEMENTS of type DEVICE. 

(i.e. a 3 HP induction Motor would be an element and a 
2000 HP induction Motor would be another element of the 
same type.) 
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E 


#define MAXCHAR 81 
#define PI 3.1415926536 
#define LINES PER PAGE 25 


/* define types */ 
#define BOOLEAN 0 
#define SWITCH 1 
#define INTEGER 2 
#define FLOAT 3 
typedef struct Connect 
{ 
E Tbr inputs; S 
Mt nbr states; Lë 
E NEBr implicit; /* 
MT DEI ext in; ZA 
inl br ext out; ر‎ 
int nbr_param; 
double Sin: e 
double *state; 2٦ 
Semele *old state; /* 
deuste “implicit; z 
double *ext in; Lë 
double *ext out; 7> 
double *param; E 
ote state; /* 
Ele *init ext in;/* 
Geuble *init in; € 
denble *jaccb in; 7۸7 
Ent Jacob switch; SS 
mt type ext in; ba 
Bate type ext out; /* 
face imp index; E 


} 
CONNECT; 


typedef struct Element 
{ 
Mut serial; 
char *name; 
EDruct Connect con; 
struct Device *device; 


Ent flag; 


} 
ELEMENT; 


number 
number 
number 
number 
number 
number 
pointer 
pointer 
pointer 
pointer 
pointer 
pointer 
pointer 
pointer 
pointer 
pointer 


pointer 


Of 
28 
on 
or 
of 
of 
to 
Lo 
to 
to 
to 
to 
to 
to 
to 
to 
to 


input variables 

internal states 

implicit equations 

external input variables 

external output variables 

parameters 

array of input variables 

array of state variables 

array of 'old' state variables 
array of implicit variabales 

array of external input variables 
array of external output variables 
array of parameters 

array of initial values for states 
array of “initial values for ext in 
array Sf initial values for inputs 
jacobian matrix of implicit variables 


with respect to input variables 


O if jacobian not 


pointer to array of 


pointer to array of 


Pointer to array of 


/* 

/* 

BS 

/* pointer 

/* if flag = 
if flag = 


1, 
O, 


1 if’ Jaeebian calculated by function 


calculated by function 


external input types 


external output types 


indexes for itab array 


serial number of element 
pointer to name of element 
connection pointers and counters 


to device 


element is used in Network 


e 


262 


lement is not used 


7 
ee 
E 
x 


7 


a7 
4 
17 
7 
7 
7 
m 
ny 
2, 
A 
Zoe 
i 
27 
E 
E 
27 


7 


ا 
7 
Eo‏ 
T‏ 
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typedef struct Device 
( 


int type; /* type of device code E 
IBE (E) (): /* starting address of routine for this type x / 
char *name; /* pointer to name of device x / 
E TBI inputs; /* number of input variables (default) d 
int nbr states; /* number of internal states (default) */ 
Bn: br implicit; /* number of implicit equations m 
mE MBI ext in; /* number of external input variables i 
ENEEDbr ext out; /* number of external output variables x 
int nbr param; /* number of parameters EE 
char **input_name; /* pointer to an array of strings holding the 
names of the input variables Es 
EI state name; /* pointer to an array of strings holding the 
names of the states en 


char **implicit_name;/* pointer to an array of strings holding the 


names of the implicit equations 7 
E ext in name; /* pointer to an array of strings holding the 
names of the external input variables */ 


char **ext out name; /* pointer to an array of strings holding the 


names of the external output variables * / 
char **param name; t pointer to an array of strings holding the 
names of the paramaters * / 
Mice type ext in; /* pointer to array of external input types uf 
tiie tvpe ext out; /* pointer to array of external output types x 
) 
DEVICE; 
Eupedef struct Node 
{ 
char *name; /* name of node */ 
int nbr subnode; /* number of subnodes x 
struct Subnode **subnode; /* array of pointers to subnodes * / 
struct Node *last; /* pointer to last Node structure */ 
) 
NODE; 
typedef struct Subnode 
{ 
me type; /* type of subnode = 0 for voltage law 
= J for scurren. law x / 
int ref flag; /* ref subnode flag =0 not ref : -1 is ref  */ 
E-nble init volt; /* initial value of voltage if required Wi 
char *name; /* name of subnode * / 
ant nbr connect; /* number of connections at subnode * / 
char **element; /* array cf element names */ 
char **variable; /* array of variable names */ 
mot Helm ptr; /* pointer within element array of elements */ 
ent “var ptr; /* pointer within input array x / 
struct Subnode *last; /* pointer to last Subnode Structure x / 


} 
SUBNODE; 
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EUpsdef struct Stream Ptr 
( 
FILE *in; 
۲۰۰۰۱۰٠٢ Stream Ptr 
char filename [MAXCHAR]; 
miline nbr; 
} 
STREAM PTR; 


typedef struct Queue 
{ 
int elm; 
Int var; 
double value; 
double time; 
struct Queue *last; 
} 
QUEUE; 


typedef struct Simulate 

{ 
double dt; 
double tmin; 
double tmax; 
double time; 
mE maz iteration; 
double converge; 
double delta; 
double delta min; 
danble print dt; 

} 

SIMULATE; 


typedef struct table 
{ 
Ent nbr; 
But *e; 
Ent *v; 
aE mult; 
} 
XTABLE; 


BEvpedef struct Itable 
( 
int e; 
Ent 1; 
) 
ITABLE; 


typedef struct Print var 
( 

int e; 

Ent v; 


Bt typ: 


*last; 


f 


% 
/ 
/ 
7 


/* 
/ * 
/ * 
/ * 
7 
/* 
/ * 
jx 
/* 


/* 
/ * 
/* 
/* 


j* 
/* 


/* index to element or node array 
/* index 


/* type of variable = O0 for external output 


/* present stream 
/* last stream 


/* filename of stream 


/* current line number in file 


* pointer for which element in the array 


27 
=, 
=, 
GE 


* pointer for which external input variable 


* new value 


* time to take on new value 


* pointer to last Queue structure 


time increment in seconds 


starting time of simulation 


maximum time of simulation 


present time of simulation 


maximum number of iterations in NR 


convergence limit for NR 


percent change of variable for jacobian 
minimum change of variable for jacobian 


time increment for printing variables 


array of element indexes 


array of input variable indexes 


number of variables tied to this variable 


array of multipliers for variables 


index to element array 


x 


index to implicit variable array */ 


-02600 


to variable or subnode array 


2 
tus 
7 
27 
2 
rd 
7 
2% 
7 


7 
27 
u, 


Ed 
GER 


7 
Ex 
7 
A 
ny 





doerry.h 


1 for external input 
2 for Node Voltage 
EEOUUuCt Print var *next; /* pointer to next PRINT VAR structure 


) 
PRINT VAR; 


- 2p 
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Sump data.c */ 
/* Norbert H. Doerry 


13 March 1989 


This routine dumps the current state of the simulation to a file or 


the screen 


E/ 


#include <stdio.h> 
#include <math.h> 
#include "doerry.h" 


dump data (out,ee,nelm,nn,nnode,qq,nq,simulate,pv,xtab,nztab,itab,nitab) 
BIER *ont; 
ELEMENT **ee; 
int nelm; 
NODE **nn; 
int nnode; 
REES Ee et 
Ent nq; 
SIMULATE simulate; 
Pret VAR *pv; 
XTABLE **xtab; 
EprEnrxtab; 
FTABLE **itab; 
imtenitab; 
{ 
0۹۹ ۹ ۰۱, 
Semele ~jacob, *implicit, *var, *imp; 
Shar *“calloc(); 
EDSHISVAR *temp; 
double implicit error(:; 


/* print out element data */ 


for (i= 0 ; 1 «€ nelm ; 1++) 
( 
7* print out header */ 


Mente (Out, | ELEMENT : %-20s <> SERIAL : *3d <> DEVICE : %-20s ", 
ee[i]->name,ee[(i])->serial,ee[(1]->device->name); 

Euwse[i)--flag) fprintf (out, "An"); 

Ae tprint£ (out, “<> *** UNUSED ***An"); 


/* print out the parameters */ 
mies [1]5>con.nbr param > 0) 
( 
fprintf (out,"in PARAMETER Valuesin"); 
ell) = GOS KC eeli=>con.nbr param ; j++) 


{ 
ferinettsut,. _%205.:: 515 
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ee[i]-»device-»param name[j], 


ee[i)-»5con.param[j]); 


/* print out input variables */ 


Mee [1]7>co0on.nbr_ inputs > 0) 
( 
fprintf (out, "An INPUT Variable Initial and Present Valuesin"); 


for (J = 0 7; j > ee[i]-»con.nbr inputs T) 
( 
Roresmntt(oub 8 ~t20s “2s $15g :: $15g An", 
eelr]  >device->input namefíg3], 


eceli] >-eon.init ın|J), eeli)->eon.in( 7}; 


/* print out the state variables */ 


mee (celij->con.nbr states > 0) 


{ 
fprintf(out,"\n STATE Variable Initial, Old and Present Values\n") ; 


fer (j = 0 ; j < eeliJ->con.nbr states ; jtt) 
{ 
Peer out, §@t20S 2: ¢15q <3 1590 22 -%15q\n", 
ee[i)->device->state name[j], 
cols containit statelmi ee (Me>confold state (3), 


ee[i)J->con.state[j])}; 


print out the implicit variables */ 


M eil] econ nbr implicit > 0) 
{ 
fprintf (out, "\n IMPLICIT Variable Present Values and Index\n"); 


eE O0: j < eeli]->con-nbr implicit 7 jt+) 
{ 
جج۶‎ +20s £: %15g :: %3d\n", 
ee[i]-»device-»implicit name[j], 


ee[i]-»con.implicit[j],ee[i]-»5con.imp indezx[j1); 


/* print out the external input variables */ 
mu -ceil-con-nbr ext in > 0) 


{ 
fprintf(out,"\n EXTERNAL INPUT Initial and Present Values\n"); 
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ps cuscee[1]-»2con.nbr ext in 7 j++) 
( 
Dopuint5(out 0 —*20s 3: %15g :: %15q\n", 
Selig -device->ext in name], 


Sole com.init ext in(j] eel 1) --com. ext iin ۷7۶ 


/* print out the external output variables */ 


Bee li] ->eon.nbr ext out > 0) 
{ 
fprintf (out, "\n EXTERNAL OUTPUT Present Values\n"); 


or () = O F7 9 < sebrjzsconenbroext out P jt) 
{ 
Romine. (out, %208 3: %l5sg\n", 
ee) = deyice->ext out namel[ 3], 


6٠٦3176 610166 ۶ 


IN rint out the jacobian */ 


Eorantf(out,"XnWXn JACOBIAN SWITCH IS "); 
ae (ee[ijJ—->con.jacob switch == 0) fprintf (out, "OFF\n"); 
pee fprintf (out, "ONin"); 


printf (out, "Iinin Jacobain Matrix\n\n"); 


HO 0,5 %*5 < eeli)->con.nbr inputs ; j++) 
{ 
Rk =0, k< eeli)->eon.nbr implicit ; k++) 
{ 
Dora 7957,71 < eeli]->eon.nbr inputs && 
EOIN 5S: t+) 
eer, 


ee[i]->con.jacob_in[k + eeli]l->cen.nbr implicit * 1J}; 
ج5‎ 7715۲ (out, "\n"); 
) 
fasintf (out, AN}? 


/* print a form feed */ 


Bo:intf(out," NE'); 


Peeprint out network information */ 


for (i = 0 ; i < nnode ; itt) 


{ 
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Bprintf(osut," An NODE :: $sinin",nn(i)->name); 


eat e 03; j < nn[i]->nbr_subnode ; j++) 
{ 


Porint ft (out, * m 


EE (nn[1]->subnode[7)J->ref flag) 
fprintf (out, REFERENCE"); 


if (nn(i]->subnode[3j]->type == 0) 
fprintf (out," VOLTAGE SUBNODE : "); 
else 


fprintf (out, " CURRENT SUBNODE : "); 
fprintf(out,"*s ",nn[i]-»subnode[j]-»name ); 


if (nn[i]-»5subnode[j]-»5type == 0) 

Berner (out, i: lo GM ^nnPrjcssubnedepg]-ornat volt); 
else 

Berane? (out, Nn")? 


/* print out the attached variables */ 
P 


Bere => UO; kK < nn[i]-»subnode[j]-»2nbr connect ; X-*-*) 
( 

Eprintf(out," +205۰772205 = 23156 ر3‎ 
nn[i]->subnode[3]->element[k], 
nnli]l->subnede [5] >variablelk], 
segnmnis-subnede[j3]-»-eim ptr[k]]-> 
conw«minmb)scsubnode[j)e»var ptr[k]]); 


Eprintf(out, in"); 


/* print out form feed */ 


Mar untf(out," Xf"); 


/* print out the queue */ 
Brrintf(out," QUEUE\n\n"); 


moet = e وہ‎ itt) 
d 
EE Denkt, Aere Ae = $15g at time %15g\n", 
ee[qq[i)]-»elm]-»name, 
ee[qq[i]-»elm]-»device-»input name[qq[i]-»var], 
qalil->value;, 
galili time); 
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/* print out form feed */ 

E-runtf(out,"VXMf"); 

eet e out," IMPLICIT VECTOR\n\n"); 

5۰۰-۰ Let, H Implicit Error = t=-l53g\n\n" implicit error(ee,nelm)); 


for (i =Ọ0 ; 1 < nitab ; i++) 
{ 
tf out," %2d 3%20s:%-20s = %15g\n",i, 
ee[itab[i]->e]->name, 
ce (itabli]->e]->deyice=>implicit_name[itab[i]->i], 
eelitabli] >e]l >eon.implieit[ıtab[1])=>1]))- 


print out form feed */ 
NEE (Sut, NE")? 
fprintf(out," INPUT VARIABLE VECTOR\n\n"); 


Bera - 0; i € nxtab ; irt-*) 
{ 
Kscsntf(out," Variable *d\n", i); 


Eg - 07 3« xtab[i]-»5nbr ; jt-*) 

Ferintf (out, " $20s:%-20s = *l4g x 33d\n", 
ee[xtab[i]->e[3]]->name, 
eemnccabpisIsen3)js»devxce--rnput name[atab[(1]=>v[3)]], 
ecu cee ii) --e (1) 1--con-an|Atab|(ij—ov[5)), 
Ee 900 ۶ 


/* assemble and print out the jacobian matrix */ 


ferme t (out, "\f") ; 


jacob =R (double *) calloe(nxtab ٭‎ nitab , sizeof (double)): 
implicit = (double *) calloc(nxtab , sizeof(double)); 
imp = (double *) calloc(nztab ‚ sizeof(double)); 
var = (double *) calloc(nxtab , Sizeof (double)); 


/* make the jacobian matrix */ 
make Jacob (jacob, xtab,nxtab, itab, nitab, ee, nelm, nn, nnode,simulate); 
print out the Jacobian matrix */ 


fprintf (out, "\n SYSTEM JACOBIAN MATRIX\n\n"); 
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NA = 0 ; 1 * 5 < nxtab ; i++) 
( 
Bumsutf(out," $3s "," "y; 
EHE = 5 * 1; k < nxtab € k <S * (141) ; k++) 
( 
Berintf (out, " $3d LK. 
} 
TIDE (out, Xn"); 
e (I => 0 ; j < nitab ; j++) 
{ 
BErsntf(out," $3d ",3); 
Ek - 5 * ےو‎ k < nxtab 6& k < 5 * (i+1) ; k++) 
( 
Porimem (out, | 314g", Jacobl] k nitab * kl); 
) 
Brzimtr (out, '"\n"); 


Rercint£ (out, "\n\n"); 


MANEL (out, "1£"); 
/* print out Newton Raphson Correction */ 
/* make the implicit variable vector */ 


make implicit (ee,nelm,itab,nitab,implicit); 


malé implicit (ee, nelm, itab, nitab, imp) ;: 
/* solve the system of equations */ 
1 = gauss eliminate (nxtab, jacob,implicit, var); 


/* note that the contents of jacob and implicit were 
destroyed by gauss eliminate */ 


5۰. ۴ع‎ (out, "in IMPLICIT VECTOR and CORRECTION VECTORMn Mn"); 


Er != 0) 
Fprint£ (out, " *** SINGULAR SYSTEM MATRIX ***\n\n"); 


5۶۰۰۰۲ ۶ )ہن٤‎ "\n n Implicit Correctionin')e 
for (1 = 0 ; i < nitab ; i++) 
Eerintf (out, " Sas 153) Alög\n",a,implil,varli]), 


Erintfl(out, "\f£"); 


E rnt out the smulation stuff */ 


2 ۰ 
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Berıntf(out, "\n\n SIMULATION DATA\n\n"); 


Errintf (out, " DT = %q\n", simulate.dt); 

EE eut, ' TMIN = $gin",simulate.tmin); 

Einer (out, " TMAX = $g\n", simulate.tmax) ; 

Ereintf (out, " TIME = *gin",simulate.time); 
Eorsntf(out," MAX ITER - $dNXn",simulate.max iteration); 
merantt (out, " CONVERGE = %g\n", simulate.converge) ; 
meerntf (ort, " DELTA = *g\n", simulate.delta) ; 

Earintf (out, " DELTA_MIN = *$gNXn",simulate.delta min); 
Roronmtf (out, " PRINT DT = %gininin",simulate.print_ dt); 


fprintf (out," DISPLAYED VARIABLES\n\n") ; 


for (temp = pv->next ; temp != NULL ; temp = temp->next) 
( 
if (temp->typ == 0) /* external output */ 
forint f (out, " %20s:%-20s\n", 


ee[temp->e] ->name, 
eel emp e] device Sex out name [temp=>v]) 
else if (temp->typ == 1) /* external input */ 
Borintf(out," %20s:%-20s\n", 
ee[temp-»e]-»name, 
ee [temp->e] ->device->ext_in name[temp->v]); 
else /* subnode voltage */ 
Bee nt£ (out, " $20s:%-20s\n", 
nn[temp-»e)-»name, 


nn[temp->e] ->subnode [temp->v] ->name); 


n = 
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/* dump device.c */ 
/* Norbert H. Doerry 


15 March 1989 


This routine prints out all the device characteristics of all the 
devices to the filename specified to it. If the filename is not 
vided, then it is written to the stdout 


EZ 

include <stdio.h> 
include <math.h> 
include "doerry.h" 


dump_ device (dev, ndev, inline) 
BEYICE **dev; 
int ndev; 
Char “inline; 
{ 
Ent 1; 
۶۰۱۰۷۶۰۰۰۶ 6 تا‎ 7 


inline(0) » ' '; 


strstrip(inline); 
/* open stream */ 


Enc nline[0] == NULL) ? stdout : fopen(inline,"w"); 
if (out == NULL) out = stdout; 


/* print out devices */ 
STS — 0 ; 1 < ndev ; i++) 


{ 


Pernt device (dev(i],out); 


if (i < ndev - 1 && out != stdout) 
Berinet (out, "\£"); 
else if (out == stdout) S 


{ 
Printf(" Enter <RETURN> to eontinue : "); 


gets (inline); 


/* close file */ 


tout != stdout) fclose (out); 


23 
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/* edit simulate.c */ 


/* Norbert H. Doerry 


27 March 1989 


This routine allows the user to edit the simulation parameters 


med fied 10 April 1989 to fix error in edit ref routine *** 


7 


include <stdio.h> 
#include <math.h> 


#include "doerry.h" 


edit simulate (ee, nelm, nn, nnode, simulate, pv, line) 


ELEMENT **ee; 
int nelm: 
NODE **nn; 


int nnode; 


SIMULATE *simulate; 


PRINT VAR *pv; 
ehar *line; 
{ 

double val; 


char ch,inline(MAXCHAR] , cmd; 


at ment, flag: 


/ Strip off the edit simulate command */ 


ar epy (inline, line); 


ESEStEIip(inline); 


Emine[Oo] = ' '; 


Seestrip(inline); 


cmd = inline [0]; 
if (cmd != 't’ && cmd 
flag = 1; 
else 
flag = 0; 
while (1) 
{ 
E (flag) 


{ 


=I se cmd l= “LX” && cmd 15 Cd) 


EINE No Edit SIMULATE Section\n"); 


Printer” 
printf(" 
Printi” 
printf” 
707 
pernt ۳ 


d 
J 
S 
£ 
t 


Edit Display Variables Nn"); 

Edit Jacobian Parameters Mn"); 
8 ۶ 

Edit Reference Voltage Subnodes\n"); 
Edit Time Parameters\n"); 


Enter Command : "); 
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gets (inline); 


etrstriplinline); 


cmd = inline(0]); 
NE (EMG == o) return; 
Bf (cmd !—- 't' && cmd != '3' ££ cmd l= Tri ££ cmd != 'd') 
continue; 
) 
if (cmd == 'd') 


edit_ display (inline, ee, nelm, nn, nnode, pv) ; 
else if (cmd == '3') 

eee jacob (simulate) ; 
else if (cmd == Tri) 

edit ref (inline, ee, nelm,nn, nnode, simulate) ; 
else if (cmd == 't') 


edit time (simulate); 


if (flag == 0) return; 


edit time (simulate) 
SIMULATE *simulate; 
{ 
char ch, inline [MAXCHAR]; 
double val; 


Int ncnt; 
/* enter time increment */ 


a: 
Print£(" Enter MIME. STEP (default 312.59) : '",simulate-»dt); 
gets(inline); 


ch = Stoda (inline, &val,&ncnt, 1); 


ich == ’q’) return; 

ment == 1 ££ val > 0) simulate->dt = val; 
B: 

grinef('" Enter TMIN (default 312.59), ¢; „simslate->tmin): 


gets (inline); 


ch = Stoda(inline, “val, £ncnt, 1); 


ich == 'qa’) return; 

mech == 'b’) goto a; 

if (nent == 1) simulate->tmin = val; 
e? 

printf(" Enter TMAX (detauttr 12) As To Lares ->timaz)7 


gets(inline); 
Enc Stoda(inline,&val, &ncnt,1); 


eh == *q') return; 
Eh == *b' ) goto b; 
if (ncnt == 1) simulate->tmax = val; 
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mente (" Enter PRINT STEP (default $12.59) : ",simulate->print dt); 
gets (inline); 


ch = Stoda (inline, &val,&ncnt, 1): 


if (ch == 'q') return; 
ich == 'b’) goto c; 
ےہ‎ —— 1 && val > 0) simulate->print dt = val; 


edit jacob(simulate) 
SIMULATE *simulate; 
{ 
char ch, inline [MAXCHAR] ; 
double val; 


int nent; 


e: 

printf(" Enter CONVERGE (default %12.5g) : ",simulate->converge); 
gets (inline); 

ch = Stoda(inline, &val,&ncnt, 1); 


if (ch == 'q') return; 

if (ment == 1 && val > 0) simulate->converge = val; 

Ek 

Eus Enter MAX ITERATION (default ¢12d) : ",simulate->max_iteration) ; 


gets(inline); 
ch = Stoda(inline, £val, £ncnt, 1); 


if (ch == 'q') return; 

Mich == 'b') goto e; 

if (nent == 1 && val > 0) simulate->max_iteration = (ine) val: 
g: 

printf(" Enter DELTA (default $12.59) : ",samulate-»delta); 


gets(inline); 


ch = Stoda(inline, &val,&ncnt, 1); 


ut (Gh == *q') return; 

EIE ch == ’b’) goto f; 

if (ncnt == 1 ££ val > 0) simulate->delta = val; 
A: 

Bzintef(" Enter DELTA_MIN (default $12.59) 2 ,simulave->delta min); 


gets (inline); 
eh = Stoda(inline, &éval, énent,1); 


if (ch == 'q') return; 
Eh == "b' ) goto g; 
if (nent == 1 44 val > 0) simulate->delta min = val; 


edit display (inline, ee,nelm,nn, nnode, pv) 
ebar *inline; 

ELEMENT **ee; 

int nelm; 

HODE **nn; 
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int nnode; 
PRINT VAR *pv; 


d 


۳۰۰۰٠۰ ٠,٠۰٣٣, (29,67 

PRINT VAR *temp; 

char line([MAXCHAR],ocmd,en(MAXCHAR], vn (MAXCHAR] ; 
EN trip inline of first character */ 

strcpy (line, inline); 

line [0] = * *; 

strstrip(line); 


cmd = line[(0); 


/* see if cmd is a valid command */ 


if (cmd == 'a” || cmd == 'd') 
flag = 1; 
else 
fila = 0; 
while (1) 
( 
if (flag == 0) 
( 
pryntf(í("n DISPLAY VARIABLES\n"); 
for (temp = pv->next ; temp != NULL ; temp = temp->next) 
{ 
if (temp->typ == 0) 


printf(" *%20s : $-20sWXn",ee[temp-»e]-»name, 
ee[temp->e]->device->ext _out_name[temp->v]); 
else if (temp->typ == 1) 
printf(" ۶۴2053 ء:‎ %-20s1in",ee[temp->e]->name, 
eebteunpessele»devrees-cext in nane[temp->v]); 
else if (temp->typ == 2) 
printf('" 3220s : %-20s\n",nn[temp->e]->name, 
nn [temp->e) ->subnode [temp->v]) ->name); 


lema. == 'q’) return 0; 


printf("\n Edit DISPLAY VARIABLES COMMANDS\n") ; 


Printf(" a Add Display Variable\n"); 
prrintfi" d Delete Display Variable Mn"); 
pint q Quit Edit Display Variables\n"); 
Prise Pnter Command : "); 


gets(line); 

Strstrip (line) ; 

cmd = 11 ]7 

a ema ==" q) return 0; 


else if (cmd != "ai ££ cmd != fd’) continue; 
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/* strip off command */ 


Expne[O] 2 ' ':; 


EDrstrip(line); 


/* strip off element/node and variable/subnode */ 


erlierelm(line,en,vn); 


/* see if the element/node are there */ 


if (en(0) 22 NULL || vn[0] == NULL) 
( 
printf("\n Enter Display Variable (Element : Variable) 
gets(line); 
۲۰٠٠٣٢٣٠٦٦٦ )٦356/ 65۷(7 
} 
/* I£ the entry is hosed, show the menu */ 
if (en[0] == NULL || vn[0) == NULL) 
{ 
flag = 0; 
continue; 
} 
/* find the element */ 
for (i= 0; i < nelm 44 strcmp(ee[i]->name,en) != 0 ; i++); 
a. == nelm) 
{ 
for (i = 0 ; i < nnode && strcmp(nn[i]-»5name,en) !- 0 
if (1 == nnode) 


{ 


printf(" *** Unable to find element/node %s\n", en); 


flag = 0; 


continue; 


E CI = O; j € nn[i]-»nbr subnode && 
SsErFeMmp (nn [34] =>subnode [j] ->name, vn) != 0 


if (j == nn[i]-»nbr subnode) 


d 


e 
, 


+77 


prone Unable to find 8 Ts n vm 


flag — 0; 


continue; 
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ff (nnl2]->subnode[j)->type == 1) /* current subnode */ 

( 
print£(" *** SUBNODE $s : $s is a current subnode\n",en,vn); 
flag = 0; 
continue; 

) 

) 
else /* its an element : variable entry */ 


( 


/* see if its an external output variable */ 


EST (I = 0 7 j < ee[(i)-»con.nbr ext out && 


strcmp(ee[i]->device->ext_out_name[3],vn) != 0 ; j++); 


if (j == ee[i]->con.nbr ext out) /* wasn’t an external output */ 
{ 
Her (7 = 0 ; J < ee(i)]->con.nbr ext in 44 
stremp(ee[1]=>device-=>ext in name[j],vn) != 0 7 jt+t); 


EE DEE in) /* wasn’t an external input */ 
{ 
printf(" *** Unable to find VARIABLE sin", vn): 


flag = 0; 
continue; 
) 
typ =); 
} 
else 
typ = 0; 


/* now lets get to work */ 


if (cmd == 'd') 
delete pv(i,j,tyPp,Pv); 
else 


add pv(i,j,typ,pv): 


flag) return; 


} 
٠۰۰۰ تت۱‎ )3 2 e Ep, Ei 
Ente), ,typ; 
PRINT VAR *pv; 
( 
EESNTCVAR *temp, *last; 


last = pv; 


for (temp = last->next ; temp != NULL ¿temp = last->neit ) 
( 
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A (temp=>e == 1 ££ temp->v == 3 ££ temp->typ == typ) 
{ 
last->next = temp->next; 
free(temp); 
} 
else 


{ 
last = temp; 


add pv(i,j, typ, pv) 
E typ; 
PRINT VAR *pv; 


( 


PRINT VAR *temp, *last; 


har *calloc(); 
/* ensure that the variable isn't already there, if so, delete it */ 
SEES 0٣ )3,(, (+ط, ما۱‎ 


last = pv; 
5ت٣‎ temp — last-»next ; temp != NULL ;temp = last->next ) 
last = temp; 


E uexst — (PRINT VAR *) calloc((unsigned) 1 , sizeof(PRINT VAR)); 
temp = last->next; 

temp->e = 1; 

temp->v = 7; 

Bpenpcotyp = typ; 

temp->next = NULL; 


E r-fünline,ee,nelm,nn,nnode,simulate) 


Eat *inline; 
ELEMENT **ee; 

int nelm; 

nome ~*nn; 

int nnode; 

SIMULATE *simulate; 


{ 


mT, Slag, nent; 
char line [MAXCHAR], cmd, n_name [MAXCHAR], s_name [MAXCHAR], var [MAXCHAR]; 
double val; 


inlane[0] = * '; 


Strstrip (inline) ; 


/* print out the reference voltage subnodes if the user hasn't 


= 28002 
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entered any arguments on the command line */ 


if (inline[0} == NULL) 
{ 
printf("\n\n Reference Voltage Subnodes\n\n") ; 
for (1 = 0 ; i < nnode ; i++) 
{ 
ESE (j) =O F7 9 < nn[fij->nbr subnode ; j++) 
( 


1f (nn[i]->subnode[3j)]->ref flag == O || 
nn[i]->subnode[3)]->type == 1) continue; 
printf(" $20s:%-20s *%gin",nn[i]->name, 


nn(i]->subnode[3)]->name, 


eu] embnode[7j->init volt): 


printf("\n Enter Reference Voltage Subnode "); 
meets (inline); 
Erstrap(inline); 
still don't have anything, give up and return */ 
Emuniine[0O] == NULL) return: 
/* decompose the string */ 
split ref(inline,n name,s name, var); 


/* find the node */ 


for (i = 0 ; i < nnode ££ strcmp(n_name,nn(i]->name) != O ; i++); 
if (i == nnode) 
{ 
printf("\n *** ERROR : Node %s Does not exist\n",n name); 
return; 


/* find the subnode */ 


ESO =O? j < nn[ij->nbr_subnode && 


EEnomp(soname,nn[i]-»subnode[j]-»name) !2 O ; Je 
if (j == nn[i]-»5nbr subnode) 
( 
printf("\n *** ERROR : Subnode %s:%s Does not exist\n",n name,s_name)? 
return? 


/* see if a new value was provided */ 


SESda (var, éval, éncnt, 1l); 


= 
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if (nent == 0) 


{ 
printf("\n Enter New Reference Voltage (default %g) : ", 


am) supbnede[7]=->init volt); 


gets (var); 

Setrstrip (var); 

Stoda (var,£val, £ncnt, 1); 

if (ncnt == 0) return; /* give up if default desired */ 


/* set the initial voltage */ 


nia >subnode [3)]->init_volt = val; 


split elm(in,en, vn) 
char *in, *en, *vn; 
{ 


emt 1,3; 

/* strip off element/node and variable/subnode */ 

EE — 0 :; infi} != NULL && inli) != ist ; 1++) 
enii] = 11 77, 


en[i] = NULL; 
EUrstrip(en); 


MA 1] [= NULL) i++; /* look past the colon */ 
E - inli] != NULL ; i++ , 3++) 
EI - infi]; 


vn[3] = NULL; 
EErstrip(vn):; 
/* ignore everything after the first space of vn */ 


m O0; vn[j) != NULL EE vn(j] je ' * && vn(3] l= "At! ; 5++); 
EI) = NULL; 


Soc, ref (in, nn, sn, var) 
حعددمات‎ ٠ج‎ Zepp, Sen, vVar; 
mmt i, j; 


strip off subnode*/ 


OG 1a(1] l= NULL && in(i] !5 ':' ; 1++)‏ — ح5۰ 


MS 
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num] e in[i]: 
nn[i] = NULL; 
elrstrip(nn): 


/* strip off the subnode */ 


EB]! NULL) itt; /* look past the colon */ 
EN 5-06; in[(i] !2 NULL && in(i] ! tf && infi) !9 'Nt' ; i++ , 3++) 
ea) = inli): 


sn[j] = NULL; 
strstrip (sn) 7 


/* strip off the value */ 
STD = O? inli] != NULL ; i++, j++) 
weeny) = inli]; 


var[j] = NULL; 
strstrip (var); 


LS 
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/* elm jacob.c */ 
Norbert H. Doerry 


۰ 7 1989 
p 
/* This routine calculates the jacobian matrix for an element by varying 


the input variables and and seeing how the implicit variables change 


Er 


womclude <stdio.h> 
#include <math.h> 


#include "doerry.h" 


elm jacob(e,simulate) 
ELEMENT *e; 
SIMULATE simulate; 
{ 
a, > 
blé LOW in , normal in ; 
Ate vin, *state, *implicit, *ext_out, *temp_implicit, *temp; 


Gear. ~“Calloc(); 
/* ensure delta min is large enough to prevent divide by zero errors */ 
Is imalate.delta min < 1e-20) simulate.delta min = le-20; 


Ep implicit = (double *) calloc((unsigned)e->con.nbr implicit, 
sizeof (double) ); 


state = e->con.state; 


implicit p ccmeumplacouit; 


ext out = e->con.ext out; 


e->con.state (aouble *) calloc((unsigned)e=>con.nbr states , 


sizeof (double)); 


EL con.implicit (double *) calloc((unsigned)e-»con.nbr implicit, 
sizeof (double)); 
Eno coneext out = (double *) calloc ( (unsigned) e->con.nbr ext out , 


sizeof (double)); 


Bora = 0 ; 1 < e->con.nbr_ inputs ; i++) 
{ 


normal in =Me=>econ. in [1]. 


/* change the input variable to something somewhat smaller */ 


es>con.in[il = ( fabs(normal_in * simulate.delta) > simulate.delta min) ? 
normal_in * (1.0 - simulate.delta) : normal_in - simulate.delta min; 
En e-»con.in[íil: 


/* calculate the new implicit variables */ 
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(e->device->f) (e, simulate.dt); 
exchange temp _ implict with e->con.implicit */ 


emp = e->con.implicit; 
e-»con.implicit = temp implicit; 


emp implicit = temp; 
/* change the input variable to something somewhat larger */ 


fabs(normal in * simulate.delta) > simulate.delta min) ?‏ ( = ( ذ1ا دجہت جع 
Dermal in * (1.0 + simulate.delta) : normal in + simulate.delta min;‏ 


/* calculate the new implicit variables */ 
(e->device->f) (e, simulate.dt); 
/* calculate the slopes */ 


AS 0; 3 < e->con.nbr_implicit ; j++) 
{ 
ES on Jacob in|j + e->eon.nbr implicit * i] = 
foe reneimplieit[7]| = temp impliceit[7]) 
Belez>con.inli) - low in); 
} 


Seecon.in{i) = normal in; 


free(e-»con.state); 
Brece(e-»con.implicit); 
Lzse(e-ocon.ext out); 


free (temp implicit); 


e->con.state = state; 
Fe mR implicit = implicit; 
e->con.ext out = ext out; 
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Ele options.c */ 
/* Norbert H. Doerry 


March 1989 


Etoile contains the routines for saving and loading the SIMULATION 
section and the INITIALIZATION section. 


Modified 19 April 1989 *** 


fixed 'save simulation’ to print "SIMULATION" at the top 


E 

۶۰۰ ٦36 <stdio.h> 
#include <math.h> 
#include "doerry.h" 


static char sim filename[MAXCHAR],init filename [MAXCHAR]; 


file options(inline,ee,nelm,nn,nnode,q,nq,simulate,pv, 
tab nxtab,1tab, nitab, err£lag) 

char *inline; 

ELEMENT **ee; 

int nelm; 

ESDE **nn; 

int nnode; 

QUEUE ***g; 

Ent *ng; 

SIMULATE *simulate; 

PRINT VAR *pv; 

PIABLE **xtab; 

int nxtab; 

BTABTE **itab; 

Entonitab; 

int errflag; 

( 
m uu k,flag,rw:; 
char line[MAXCHAR], filename (MAXCHAR], string[21],cmd; 
ENDE *io; 


Peminitialize flag to no errors */ 
flag = 0; 


ENcopy the input line */ 
strcpy (line, inline); 


Strip off the first character */ 


Beet e TT: 


strstrip(line); 


/* get the command if its there */ 


AS E 
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cmd = line[0]; 
/* get the filename if its there */ 


if (cmd != /NULL’ ) 
{ 
line [0] » ' '; 
strstrip(line); 


strcpy(filename,line); 


/* if the command isn't a proper one, display the menu */ 


flag = (cmd == NULL) ? 1 : O; 


while (1) 
{ 


if (flag) 
{ 
Eriner('\n\n FILE OPTIONS\n"); 


Printf(" e Change Working Directory Mn"); 
if (errflag == 0) 
( 
۶۰ ۹ Dump Simulation State\n"); 
۲۶1۱7۲" X Save INITIALIZATION Section\n"); 
printf(" T Load INITIALIZATION Section\n"); 
} 
Brintf(" q Ouen 
if (errflag == 0) 
{ 
printf" 5 Save SIMULATION Section\n"); 
printf(" S Load SIMULATION Section Mn"); 
) 
prrntf(" Enter Command : "); 


gets(line); 
strstrip (line); 


cmd = line[(0); 
/* get the filename if its there */ 


if (cmd !- 'NULL') 
{ 
Dine[o]) = ’ '; 
strstrip(line); 
strcpy (filename, line); 


if (cmd 22 'q') 


Berurn, flag; 
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else if (cmd == 'c’) 


change directory(filename) ; 


else if (cmd == ‘d’ && errflag == 0) 


{ 


if (filename[0] != NULL) 
i = get_filename(filename, &io,1,"DUMP",1); 
else 


i = get filename (filename, &io,1,"DUMP",0); 
TG != 0) return flag; 


dump data (io,ee,nelm,nn,nnode, *q, *nq, *simulate, 
Er, ztab,nztab itab, nitab): 


72. (io != stdout) f£fclose (io): 

} 

else if (errflag == 0 && (cmd == 's’ || cmd == 'S’' || 
cmd == 'i” || cmd == 'I')) 

{ 
i end == '"s' || cmd == ’1') rw = 1; /* write to file */ 
else rw = 0; /* read from file */ 
ema == 's’ || cmd == 'S’') strepy(string, "SIMULATION") ; 


ese strepy (string, “INITIALIZATION"); 
/* try to load file immediately if filename is non zero length */ 
if (filename [0] != NULL) 
{ 
1ı > get filename(filename,&io,rw, string, 1); 
/* otherwise, prompt user for filename, and provide default name */ 
else 
{ 
if (cmd == 's' |] cmd == 'S') 
strcpy(filename,sim filename); 
else 


strcpy(filename,init filename); 


i = get filename(filename,&io,rw,string,0O); 


/* see if the opening of the file was aborted */ 


(1 t=O) 
return flag; 


/* save the filename */ 


COCA BH 





file options.c 


if (cmd == 's’' || cmd == 'S?) 
strcpy(sim filename, filename); 
else 


strcpy (init _ filename, filename); 
/* process the files */ 


if (emd == 's') 

return write sim(io,sim filename, ee,nelm,nn, 

nnode, *q, *nq, *simulate, pv) ; 

else 1f (cmd == 'S') 

return read sim(io,sim filename,ee,nelm,nn, 

nnode,q,nq, Simulate, pv); 

else if (cmd == 'i') 

return write init(io,ee,nelm, nn,nnode); 
else if (cmd == ‘I’) 


return load init (io, filename,ee,nelm,nn,nnode); 


else flag = 1; 


lag == 0) return; 


write sim(out, filename, ee,nelm, nn, nnode,q,nbrq, simulate, pv) 


FILE *out; 


char *filename; 
ELEMENT **ee; 

int nelm; 
NODE **nn; 
int nnode; 
BUEUE **q; 
Entonbrq; 


SIMULATE simulate; 


PRINT VAR *pv; 


{ 


ice 1, ), kK; 


PRINT VAR *temp; 


BErsintf(out,"! 


%s\n!\n",filename); 


fprintf (out, "SIMULATION\n!\nDISPLAY\n") ; 


for (temp = pv->next ; temp != NULL ; temp = temp->neit) 
{ 
if (temp->typ == 0) 
{ 
fprintf (out,  *-20s : &s\n",ee[temp->e]->name, 


} 


ee[temp-»e]-»device-»ext out name[temp-»v]); 


else if (temp->typ == 1) 


{ 


fprintf(out," %-20s : $sin",ee[temp->e]->name, 


ee [temp->e]->device->ext_in name [temp->v]); 
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} 
else if (temp->typ == 2) 
{ 
fprintf(out,"  $-20s : %s\n",nn[temp->e)]->name, 
nn[temp-»e]-»5subnode[temp-»v)-»name); 


) 


Beutf(out," END\n!\n"); 

Mente (out, " TIME STEP *g\n",simulate.dt); 
Berontf(out," TMIN %g\n",simulate.tmin); 
fprintf(out,"  TMAX ’g\n",simulate.tmax) ; 
entr (out, PRINT STEP Bo 7 samubate.print dt); 
EREantf(out," DELTA %g\n",simulate.delta) ; 
Eprinef(out," DELTA MIN *+gin",simulate.delta min); 
OEA t E (out, " CONVERGE *g\n",simulate.converge); 
fprintf(out," MAX ITERATION $dXAn",simulate.max iteration); 
۰٠۰٠٠۰ ۶] ہہ‎ ٢," REFERENCE\n"); 

ESE (1 = O i < nnode ; i++) 


TD O; 3 < nnli1)->nbr_subnode ; j++) 
{ 


1E (nn([i1]->subnode [J] ->ref flag == 0) 
۰٠٢٣٢ 7 7 
if (nn(i)]->subnode(3)]->type == 0) 
ESr3ntf(out," Um c:20s : $20e $gi/n'",nn[i)-»name , 
nn[i)-»5subnode[j)-»5name , nn[i)-»5subnode[j)-»init volt); 
else 
Urintf(out," I : $%20s : $%$-20s\n",nn [i1] ->name , 


nn [i] ->subnode [ j) ->name) ; 
} 
5۰۰۰٦۶۶٤ (out, " ط2‎ ۶ 


Pernt ts (out, "EXTERNAL INPUTS Vin"); 
motte 0 ; i < nbrq ; itt) 
{ 

Ferimtf(out,"  $20s : *20s 310g $10gWMn", ee[q[i]-»2elm)-»name, 
ee[q(i)]-»elm)-»device-»ext in name[q[i)-»var) , q[i)->value, 
cuia» tame) 

rintf(out," END\n!\n");‏ ظ 


if (out != stdout) fclose(out); 


return 0; 


read sim(in,filename,ee,nelm,nn,nnode,q,nbrq,simulate,pv) 
BESEDE *in; 

char *filename; 

ELEMENT **ee; 


go 
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int nelm; 

NODE **nn; 

int nnode; 

DUEUE ***gG; 

Imute*nbrq; 

SIMULATE *simulate; 

ERINT VAR *pv; 

( 
TENN ETE *strm, stm; 
Hee L ae, 3. 3 
ERINT VAR ppv, *temp pv, *old; 
QUEUE **qq; 
SIMULATE ss; 


ne ng; 


Breet Lé Ge stream pointer structure */ 


strm = &stm; 

Fan = in; 

strcpy(stm.filename , filename); 
stm.line nbr = 0; 


stm.last = NULL; 
۰۰۰۰1٦112 ppv */ 
ppv.next = NULL; 
/* load the simulation */ 
errflag = 0; 
load simulation (&strm,ee,nelm,nn, nnode, &qqg, &nq,&ss,&ppv,&errflag); 
if (errflag != 0) 
{ 
printf(" *** Load SIMULATION Section ABORTED ***\n"); 
return 0; /* don’t load anything if there was an error */ 
fete] the old queue and print var structures */ 
E EEE PV — pv-»2next; temp pv !- NULL ;) 
{ 
old = temp_pv; 


temp_pv = temp_pv->neit; 
free (old); 


SEN (1 = O0; i «€ *nbrq ; it-*) 
Eree((*q) [i]):; 


ree (*q); 
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/* assign the new structures */ 


(*q) 7 qq: 
*nbrq - nq; 


pv-»next - ppv.next; 


/* change the Simulate structure */ 


simulate-»dt = ss.dt; 
simulate->tmin = ss.tmin; 
simulate->tmax = ss.tmax; 
simulate->time = Se, Lime: 
simulate->max iteration = ss.max iteration; 
simulate->converge = ss.converge; 
simulate->delta = ss.delta; 
Simulate->delta min = Ss.delta min; 
Simulate->print dt = Ss, print dt; 


return O0; 


E init (OUt,e,nelm, nn, nnode) 
ENDE *out; 

ELEMENT **e; 

int nelm; 

NODE **nn; 

int nnode; 


{ 


Eu jj, k,ee,v; 
Boutf(out," INITIALIZEMn! Xn"); 


for (i =0 ; i < nelm ; i++) 
{ 


/* print out present values of input variables */ 


٣.۱0۱ efi]-»con.nbr inputs ; jt-*)‏ ت5 
{ 
Poeintt (out, 73205 : *20s 212.5g1n",e[i)->name,‏ 
uL device-orinpuüt namel)),eii) >eon.infj]):‏ 


/* print out present values of state variables */ 
AS 005 0) < eli]->con.nbr states ; SES 
{ 


Elo وو ےہ‎ : 220s %12.5g\n",e[li)->nane, 


e[i)-»device-»5state name[j],e[i)])-»con.state[j]); 
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۳٠۰٠٠٦٢٢۶ (out, "  ENDiniAn"); 
fprintf (out, "NODE VOLTAGE INITIALIZATION\n") ; 
FOI (i = 0 ; i < nnode ; 1++) 

( 


/* print out present values of nodes */ 


A e nn[ij->nbr subnode E) 
{ 


/* only write out those that are voltage subnodes */ 


if (nn[i]->subnode[(j]->type != 0 ) 


continue; 
/* find pointers in element array */ 


ee = umbj-subnoede[j]-»2elm ptr(0]; 
EE onn[i)-»5subnode[j]-2var ptr[0]; 


Meant (out, %205 : $20s %12.5q\n", nn[i}->name 


nn(i]->subnode[3j]->name,e(ee]->con.in(v]); 


4 


٣۰۰۰۰ ۰٢۶ out," END\n!\n"); 
fprintf (out, "EXTERNAL INPUTS INITIALIZATION\n!\n"); 
fOr (l1 = O ; 1 < nelm ; itt) 
( 
print out initial values of external inputs */ 
0-07 j < e€fij->con.nbr ext in ; j++) 
{ 


Boro9mtf(íout." 20s : %20s %12.5g\n",e[i]->name, 


e[i]-»device-»ext in name[j],e[i]-»2con.init ext in(j]); 


il xntfí(out," END\n!\n"); 
E Gut != stdout) fclose (out)> 


peturn O0; 


load init (in,filename,e,nelm,nn,nnode) 
ARLE Zin? 
ELEMENT **e; 
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int nelm; 
NODE **nn; 


int nnode; 


char *filename; 


( 


STREAM PTR SEEM, SEM 
ء79۰6۰۰۴‎ ۲139,17 
DODE *Xtn; 

ELEMENT **te; 

char *calloc(); 


/* initialize the stream pointer */ 


strm = &stm; 

Seman = in; 

strcpy(stm.filename , filename); 
EEmeune nbr = 0; 


stm.last = NULL; 


/* allocate Node and Element Arrays */ 


tn = (NODE **) calloc((unsigned) nnode , 
te = (ELEMENT **)calloc((unsigned) nelm 
B2 = O : 1 < nnode ; i++) 

en) = (NODE *) calloc((unsigned) 1 
for = O ; 1 < nelm ; i++) 

te[i] = (ELEMENT *) calloc( (unsigned) 


٠٠٠٠٠۰٠۰٦٦٢ up the arrays */ 


ISO; 1 < nelm ; i++) 
{ 


€ 


d 


sizeof (NODE *)); 
sizeof (ELEMENT *)); 


sizeof (NODE )); 


, sizeof(ELEMENT)):; 


We] +>con.nbr_inputs = e(i)J->con.nbr inputs; 


Pot >con.nbr states 


Dp-sscen.nbr ext in 


te[i)])-»5»device - e[i])-»device; 


te[i]->name = e({ijJ->name; 
te[i]->flag eimctlag; 


te[i]->serial e[iJ->serial; 


ENterr]-»con.nbr inputs) 


petrye»eon.init in = 


elij->con.nbr states; 


elil >con:nbr ext_in; 


(double *) calloc((unsigned)te[i]->con.nbr_ inputs , sizeof(double)); 


Tf (Peliji=>con.nbr states) 
EU econ init state = 


(double *) calloc((unsigned)te[iJ->con.nbr states , sizeof (double)); 


nf en eon nbr ext in) 


Ai eon. init ext in = 


(double *) calloc((unsigned)te[i]->con.nbr_ext_in , sizeof(double)); 
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FSFE = O ; 1 < nnode : 1++) 
{ 
tn[i]->name = nn[i)->name; 
en) ->nbr subnode = nn[i]-»nbr subnode; 


tn[i]->subnode = (SUBNODE **) calloc( (unsigned) En Ee 
sizeof (SUBNODE *)); 
Hari] = 07; 3 < En [I1 SnD: subnede £o $E) 
( 
ت5‎ --subnode[j] = (SUBNODE *) calloc ((unsigned) 1, 
sizeof (SUBNODE)); 


tn[i]->subnode[j]->type = nnli)->subnode[j]->type; 
Eu--»subnode[3]-»3init volt = 0.0; 


tn[i)->subnode[j)->name = nn[i)->subnode[J)->name; 


errflag = 0; 
Sad initial(£strm,te,nelm,tn,nnode,"!",terrflag, 1); 
/* see if the load had an error */ 


if (1 != 0 || errflag != 0) 
{ 
meee” *** Load INITIALIZATION Section ABORTED ***\n") ; 


return O; 


/* save the results */ 


e 1 < nelm ; itt)‏ ت دہ 
{ 
ea )>>con.nbr inputs > 0)‏ 
( 
Enee(e[[i)-»con.init in);‏ 
EI cson.init in = telr eon init ini‏ 
} 
e [1)->con.nbr states > 0)‏ 
{ 
free(e[i]-»con.init state);‏ 
ee) >eon.init state = telil -con 7720 7‏ 
} 
e (1]=>con.nbr ext in > 0)‏ 
{ 
Zree(el]->eon.init ext in);‏ 
dee con init ext in = tell con. ıinitge- C In,‏ 
} 
free(te[(1));‏ 
) 


free(te); 


Sr (1 = 0O ; i < nnode ; i++) 
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mor (7 = D 7; 5 < nn(i]-»nbr subnode tt) 


if (nn[i)->subnode[j)J->ref_flag == 0) /* don’t change ref subnode */ 
nnisgcssubnode[j]-»init volt =-tn[l2]->subnode|j]->init volt; 
free (tn[i)]->subnode[3)); 7 
} 
free(te[i)); 
} 
free (te); 


return O0; 


change directory(filename) 
char *filename; 
( 


strstrip(filename); 


if (filename[O] == NULL) 
{ 
ErSntf(" Present Working Directory : "); 
erlush(stdout); 


/* The following line is system dependent */ 
system("pwd"); 
pesntf(" Enter New Directory : "); 


gets(filename); 


strstrip(filename); 


if (filename[0] == NULL) return; 
) 
e hdir (filename) != 0) 
printf(" *** ERROR : change directory unsuccessfulinin"); 
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/* Gauss eliminate.c */ 


/* Norbert H. Doerry 


El 


14 February 1989 


This routine solves a general system of linear equations using 
Gaussian Elimination with partial pivoting. The function returns 
a value of O if all went well, and a value of 1 if the matrix 

SS Singular 


14 Feb modifications: 


The a matrix is no longer preserved, neither is the c matrix 


#include <stdio.h> 
#define DEBUG O 


#define aa a 


#define cc c 


gauss eliminate (n,a,c,zx) 


EDL n; /* The dimension of the system */ 

double *a; /* input matrix that is dimensioned n by n x 
double *c; /* The right hand vector dimensioned n e 
double *x; /* The solution to the system of linear equations */ 


{ 


susro*calloc(í(); 
dcuble pivot, temp? 
E, X,pvt; 
/* print out the matrix if DEBUG is set */ 
EN 0. k«n && DEBUG ; print£(" : $10.4f1n",c[k++))) 
Some = OF J <n; ++) 
Ene EC" $3.0f",a[j*n + kJ); 
BEES(DEBUG) printf ("Mn"); 
/* the input arrays are not preserved */ 
/* print out the matrix if DEBUG is set */ 
TIF =O? kK < n && DEBUG ; printf(" : 410246 nce (k++) ) 
ESO = 0; j <n; j++) | 
Bemer(" 33.0£",aa[j*n + k)); 
E (DEBUG) printf ("\n"); 
/* triangularize matrix */ 
EC =O: i <n? i++) 


{ 


- 297 - 





gauss eliminate.c 


—E find pivot */ 


pvt = i; 
not = aali + i*n]*aali + i*n]; 
mo = itl > j <n ; j++) 
{ 
DEBO) printf("37.4f :: $7.4fNn",pivot,aa[j + i*n]*aa[j +1*n)); 
E pIvVot < aalj + 1*n]*aa[) + i*n)) 
( 
pivot = aa[j + 1*n] * aal) +i*n]; 
pvt = j; 
} 
} 
EUSt = aalpvt + i*n); 


See if singular matrix */ 


at 
return 1; 


(pivot == 0) 


/* switch rows if necessary */ 


Er: !— pvt) 
( 
Sr i77 «n; jt*t) 
{ 
temp = aali + j*n]); 
aali ra apre Sen] pivot) /* make pivot. 1.*/ 
aa[pvt + j*n) = temp; 
) 
temp = ceci]; 
ecc [1] CEB] / pivot: 
cc[pvt] = temp; 
} 
else /* make pivot equal to one */ 
{ 
celi] /= pivot} 
for =i 7 Jj <a: IH 
aali + jtn] /= pivot; 


/* get zeros 


for 
{ 
if ((temp 

tor Ik 
aalj + 

eej] 


f=. itl 


print out 


under pivot */ 


eco Mas 'ytt) 

= aa[lj + i*n)) == 0) continue; 
1 م, ہج ے>ے پر‎ kFY) 

k*n) -= temp * aa[i + k*n); 


temp e ccli]; 


the matrix if DEBUG is set */ 
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meek = O 7; k < n && DEBUG ; printf(" : $10.4f1n",cc[k++])) 
fanr (j =O: j] <n; 3++) 
puxntf(" %23.0£",aalj*n + k]); 


BISIDEBUG) printf ("\n"); 


/* aa[] should be triangularized */ 
/* print out the matrix if DEBUG is set */ 
Bore A > n && DEBUG ; printf(" : %$10.4f\n",cc{itt]) ) 
SEO; j] <n ; jtt) 
Ee DOE, aal Aën + i)); 
if (DEBUG) printf("\n"); 
/* back subsitute */ 
A n-1 ; 1 >= 0 ; i--) 
d 
x(i) - cclil:; 
Dx - 1+1 ; ] <n ; jt) 


EIE —- aa[(i + 3*n] * x[)): 


return 0: 
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Einteg.c */ 
y* Norbert H. Doerry 


E October 1988 

This routine uses trapezoidal integration to integrate a variable 

of the form 

Eg £(x(t),y(t),t) 

EN (t - dt) = [dt/2]*[£(x(t),y(t),t) + £(x(t-dt), y (t-dt),t-dt)) 
This routine returns G(x) which is 

x(t-dt) - [dt/2]*[f(x(t),y(t),t) + £(x(t-dt), y (t-dt),t-dt)]‏ کرد کے ود 


This variable should be driven to zero with Newton Raphson in order 


to determine the proper new variable 
E 


Ele integ(x,xold, fx, fxold, dt) 


double x; RE) n 
double xold; Wert = de) 7 
double fx; cC CE) E) 7 
double fxold; "acit AE) EE 
double dt; dt 7 


{ 
meuran aAa - xold - (dt / 2.0) * (fx + fxold); 
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Pte rcliba.c */ 


/* Norbert H. Doerry 
Last update : 25 March 1988 


This library contains a set of routines to augment the IO functions 
in the standard IO libraries. 


El 

/* rev a: 10 July 88: fixed stofa */ 
TEV Bb: 11 July 88: added suctolc, slctouc, parse */ 
y* rev c: 24 Oct 88: added strsplit,strstrip, Stofa, revised getflta */ 
/* rev d: 10 Nov 88: fixed getflta */ 
/* rev e: 11 Nov 88: modified stofa, added stoda, Stoda */ 
/* rev f: Mar 89: added strextract Wi 


#include <stdio.h> 
#include <strings.h> 
#define MAX EXP 38 /* maximum sized exponent for system */ 


a stofa */ 


ye converts a string to an array of floating point numbers 4 
/* passes back the array and the number of numbers successfully */ 
/* converted. The returned value is a zero if read successfullly Xf 
/* to end of line, ctherwise, returns the character that reading * 
/* failed at. The third argument passed to the function is the Gë 
/* maximum number of elements in the array en 


/* rev a: 10 July 88: fixed bug that caused extra number to be converted */ 
/* rev e: 11 Nov 88: Added exponential notation */ 


mee@ra(string, fltaptr, nbrptr) 
Eat String]: 

Et fitaptr[]: 

Ente *'nbrptr; 


int sign; 

int index = 0; 
float power ; 
int maxlen,i; 
char ch; 

float inch; 


mat exponent, exp sign; 


maxlen = *nbrptr; 
Enbrptr = 0; 


strip off leading blanks and tabs */ 
while ((ch=string[index++]) == * * 1] ch == ' N£'); 
/* convert the numbers */ 


While ((ch >= '0' && ch «2 '9') ||! ch == '.' || ch == "Ai || ch == "ci 
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ch == 1, || ch = / 2! ICSD ee: II Eh == TE)‏ || 7+ ی۷۹۰۶ 


Sign = 1; /* default is positive */ 
power = 10.0; 
exponent = 0; 
exp_sign = 1; 


if ( ch == '-' || ch == '+') 
{ 
Soh = (Ch == '-') ? -1 : 1; 


ch = string [index++]; 


ERCSpEr[*nbrptr] = 0; /* initialize value */ 
while (ch >= '0’ && ch <= '9') 
{ 
BEaptrE[^nbrptr] *- 10.0; 
Mitaptr [*nbrptr] += (float) (ch = '0'); 
ch = string[index++]; 
} 
if (ch = '.') /* check for decimal point */ 
while ((ch = string[index++]) >= '0' && ch <= '9') 
{ 
fltaptr [*nbrptr] += (float) (ch - ’0’) / power; 
power *= 10.0; 


else if (ch == '-') /* check for ft-in entry */ 
{ 
if ((ch = string[index++]) >= '0' ££ ch <= '9') 
( 


inch = ch ~ '0'; 
/* see if 11 or 12 inches */ 


if (inch == Il inch == 0) 
if ((ch = stringlindext+])) == '0* || ch == 1'17’) 
{ 
inch *= 10.0; 
inch += (float) (ch = *0'); 
) 
else 


index--; 
power = 10.0; 


<۲ 5ج‎ = stringlindex++]) == * .*) 7* ft-decimal inch */ 
( 
while ((ch = string[index++]) >= '0' && ch <= 9”) 
{ 
inch += (float) (ch - '0') / power; 
power *= 10; 


} 
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elseif (ChE) /* ft-inch-eighth */ 
{ 
if ((ch = string[index++]) >= '0' ££ ch <= '7') 
( 
inch += (float) (ch - '0') / 8.0; 
if ((ch = string[index++)) == ’.’) 
while ((ch = string[index++)) >= '0' Et 
ch <= 9") 


inch += (float) (ch = '0') 7 (8.0 * power); 
power Se 10.0; 


) 
Eltspter [AÄnbrptr) += inch / 12.0; 


/* check for exponent */ 


if (ch == 'e’ || ch == "EI! 
{ 


/* if the mantissa is not specified but an exponent was specified 
set the mantissa to 1.0 */ 


if (fltaptr[*nbrptr) == 0 && stringlindex - 2] != '0' ££ 
strina [index = 2] != '.”) 
Zleapter(*nberptr) = 1.0; 


/* get the next character */ 
ch = string[index++]; 


exp sign = 1; 
power = 10; 


/* get the sign of the exponent */ 


lif ( ch == '-' || ch == '+1) 
{ 
exp sign = (ch == *-") ? -1 : 1; 
ch = string[index++); 


/* get the actual exponent value */ 


exponent = 0; /* initialize value */ 
while (ch >= '0' && ch <= '9') 
( 
exponent *= 10; 
exponent E 
ch = string[index-tt]; 
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/* ensure exponent is not too large */ 
/* MAX EXP is the max size of an exponent (le+MAX EXP is legal)*/ 
exponent *- exp sign; 
upe(fltaptrí*nbrptr) > 1.0) 
{ 


fltaptr{*nbrptr] /= 10.0; 
exponent++; 


mare (fltaptr{*nbrptr) < 0.0) 
{ 
BUPaptr(*nbrptr] *- 10.0; 


erponent --; 


ES Sigh = (exponent < 0) ? -1 : 1; 


BEonent = (exponent < 0) ? -exponent : exponent; 


if (exponent > MAX EXP) 
{ 


exponent = MAX EXP; 
fitaptr[*nbrptr] = (exp sign == -1) ? 0.0 : 1.0; 
/* multiply number by its exponent */ 


power = (exp sign == -1) ? 0.1 : 10.0; 


or (1 = 0O0 ; i1 < exponent ; 14+) 
fltaptr [*nbrptr] *= power; 


/* multiply number by its sign */ 


EUraptr[*nbrptr] *-» sign: 
Enbrptr)-t-t:; 


/* stop if converted maximum number of elements */ 
if (*nbrptr -- maxlen) break; 
/* see if illegal character following a legal number */ 


if (ch -- '-' || ch == '+' || ch -- '8' || ch -- '9' || ch es '.') 
break; 


/* ignore delimiting spaces */ 
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while (ch == ' * || ch == ’\t’) 
ch = string[index++); 


/* ignore delimiting : ; , */ 
Ebo == l e S al || ch ==*,* ) 
while ((ch = string[index++]) == ' * |] ch == 'At'); 
/* interpret successive : : , as Zero entries in the array */ 
Dee eh ==: || ch == *;* || ch ==*," ) 


{ 
if (*nbrptr < maxlen) 


{ 
Eltaper(*nbrptr) = 0; 
(nprptr)tt, 

} 


else break; 


while((ch = string[indext*)) -- ' ' || ch == 'Nt'); 


) 


return (ch); 


/* stoda */ 


/* converts a string to an array of double precision floating point numbers */ 


/* passes back the array and the number of numbers successfully f 
/* converted. The returned value is a zero if read successfullly */ 
/* to end of line, otherwise, returns the character that reading */ 
/* failed at. The third argument passed to the function is the SE 
/* maximum number of elements in the array */ 


stoda (string,fltaptr,nbrptr) 
char string[]: 

double fltaptr[)}; 
Ento*nbrptr; 


Ent sign; 
int index = 0; 
double power ; 
int maxlen,i; 
Shar ch; 


int exponent,exp sign; 


maxlen = *nbrptr; 
Snorptr = 0; 


/* strip off leading blanks and tabs */ 


while ((ch=string[index++)) == ' * || ch == ’\t’); 
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/* convert the numbers */ 


while ((ch >= '0’ && ch <= '9') || ch ss '.' J| ch = '+ || ch = '-! 
HUE == ',! || ceh == I| ch s» ':' || ch == 'e' || ch ss 'E') 
{ 
sign = 1; /* default is positive */ 


power = 10.0; 
exponent = 0; 


exp sign = 1; 
mec ch == '-' || ch == *+') 
1 
sqm = (ch == *-") ? -1 : 1; 


ch = string[index++]; 


EEa5ptr[*nbrptr)] = 0; /* initialize value */ 
while (ch >= '0' && ch <= '9') 
{ 
Dtaptr[*nbrptr) *- 10.0; 
Baptr[*nbrptr] += (float) (ch - '0O'); 
ch = string[index++); 
) 
Echo -- '.') /* check for decimal point */ 
while ((ch = stringlindex+t+)) >= '0'’ && ch <= '9') 
{ 
RBtaptr[(*nbrptr] += (float) (ch - 'O') / power; 


power *- 10.0; 


/* check for exponent */ 


lf (ch == ’e’ {| ch == 'E') 
{ 


/* if the mantissa is not specified but an exponent was specified 
set the mantissa to 1.0 */ 


mu titaptr[*nbrptr] == 0 && string[index - 2] != '0' Eë 
string[index =. 2] 1=".") 
£ltaptr (nbrptr] = 1.0; 
/* get the next character */ 


ch = string[index-t-*); 


exp sign = 1; 
power - 10; 


/* get the sign of the exponent */ 
if ( ch == '-' || ch == '+') 


d 


SE 
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ESPESA Mene =) a7 =1 3 و‎ 
ch >= string (andex++ ] ; 


/* get the actual exponent value */ 


exponent = 0; /* initialize value */ 
while (ch >= '0' && ch <= '9') 
( 
exponent *= 10; 
exponent += ch - '0'; 
ch = string[index++]); 


/* ensure exponent is not too large */ 
/* MAX EXP is the max size of an exponent —(le+MAX EXP is legal)*/ 


exponent *- exp sign; 


while(fltaptr[*nbrptr] > 1.0) 


{ 
HitspEr[*nbrptr] /- 10.0; 
exponent+t; 


Mate (Eltaptr [(*nbrptr] < 0.0) 
( 
EErtaptr[*nbrptr] *- 10.0; 


exponent--; 


exp sign = (exponent < 0) ? -1 : 1; 


exponent = (exponent < 0) ? - exponent : exponent; 


if (exponent > MAX EXP) 
{ 
exponent = MAX EXP; 
fitaptr[*nbrptr] = (exp _ sign == -1) ?7 0.0 : 1.0; 
/* multiply number by its exponent */ 


Power = (exp sign == -1) ? 0.1 : 10.0; 


for (i = 0 ; i < exponent ; i++) 
fltaptr(*nbrptr] *= power; 


/* multiply number by its sign */ 


Alcaptr [*nbrptr] *= sign; 
inbrptr) ++; 
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/* 
/* 


Si 


/* stop if converted maximum number of elements */ 
if (*nbrptr == maxlen) break; 
/* see if illegal character following a legal number */ 


if (ch == '-' || ch == '+' || ch = '.') 


break; 


/* ignore delimiting spaces */ 


Nach == ٠ ' [| ch == 'Nt') 
ch = string[index++]; 
ignore delimiting : ; , */ 
Sl ST || eh 2» *;* || ch ==", ) 
while ((ch = string[index++])) == ' * || ch == 'AXt'); 
/* interpret successive : : , as zero entries in the array */ 
while ( ch == ':' || ch == ';' || ch ==',') 


{ 
if (*nbrptr < maxlen) 
{ 
Eltaper (*nbrptr) = 0; 
(*nbrptr) ++; 
} 


else break; 


while((ch = string[index++]) == ' ' || ch == '\t’'); 


return (ch); 


Stofa */ 
NHD 
Stofa is like stofa except that maxnum is specified as a separate 


argument from nbrptr 


Stofa (inline, fltaptr, nbrptr, maxnum) 


char *inline; 
St *fltaptr; 
int *nbrptr, maxnum; 


{ 


*nbrptr = maxnum; 


Becurn stofa(inline, fltaptr,nbrptr); 


/* Stoda */ 
/* NHD 


Stoda is like stoda except that maxnum is specified as a separate 


SUIS 
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E/ 


argument from nbrptr 


Stoda (inline,fltaptr,nbrptr,maxnum) 


char *inline; 
double *fltaptr; 
int *nbrptr,maxnum; 


d 


*nbrptr = maxnum; 
return stoda (inline, fltaptr,nbrptr); 


/* getflta */ 

/* NHD 
Get a string from stdin, and convert to an array of floating 
point numbers. Return a NULL if read to end of line, or 


7 


return the character that the conversion failed in. 


rev c: added maxnum as an argument 


#define LEN 131 


getflta (fltaptr,nbrptr, maxnum) 


Bat fltaptr[]; /* floating number array */ 
Ent *nbrptr; /* pointer holding number of numbers converted */ 
int maxnum; /* maximum size of fltaptr */ 


/* 
/* 


x / 


char inline[LEN]; 


gets(inline); 


return (Stofa(inline, fltaptr,nbrptr,maxnum)); 


fgetflta */ 
Norbert H Doerry 
SI March 1988 


Get a string from a file, and convert it to an array 

of floating point numbers. Return a NULL if read to end of 
line, or return with the character the conversion failed. 
Returns a -1 if an EOF received. 


rev c: added maxnum as an argument 


fgetflta(file,fltaptr,nbrptr,maxnum) 
FILE *file; 
float fltaptr[]; 


int *nbrptr,maxnum; 


char inline[LEN]; 
int ans; 


-23097 = 





Bsliba.c 


af (fgets (inline, LEN, file) == NULL) 
return -1; 


ans = Stofa (inline, fltaptr, nbrptr, maxnum) ; 
if (ans == 'In') ans = NULL; 
return ans; 


/* parse */ 


KA 


EY 


Norbert H Doerry 
11 July 1988 


Parse a string into its elements that are separated by spaces. 
maxlen is the maximum length of a parse element. 

mascnt is the maximum number of elements to parse. 

ent is the number of elements parsed. 

array contains the parsed strings. 


rev c: also ignores tabs 


parse (string, array, maxlen,maxcnt, cnt) 


char string[]: 


char arrayí]; 


int maxlen, maxcnt, *cnt; 


nl 37, 


while (string[i) != NULL && k < maxcnt) 
{ 
/* strip off leading spaces and tabs */ 
Eile (string[i] == ' ' || stringli] == ’\t’ ) i++; 
/* move characters to array */ 
while (string[i] != ' ' && stringli]) != NULL && 
string[i] !- 'Nt' && j € maxlen - 1) 
array [k*maxlen + j++] zs string[i*t*]; 
/* terminate array element with NULL */ 


array [k*maxlen + j] = NULL; 


/* read to end of element if exceed maxlen */ 


while (string[i] !- '' && string(i] !- 'Nt' && string(i] !- NULL) i-*-*; 


Boc 
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/* increment word counter */ 
KEE, 


*cnt = k; 


/* suctolc */ 
/* Norbert Doerry 
11 July 1988 
This converts all the upper case characters in a string to lower case 
E/ 
ENEorIc(instring,outstring) 
Ernstring(],outstring[]: 
BE 3; 
Ero = 0; instring[i] != NULL ; i++) 


if (instring[i] »- 'A' && instring[i] <= '2') 


Enc-tring[i)] - instring[i] - 'A' * ‘a’; 
else 
outstring[i] = instringli]; 


) 
outstring[i] = NULL; 


/* slctouc */ 


/* NHD 


This converts all the lower case characters in a string to upper case 


7 


Blefouc(instring, outstring) 
Saat instring[)], outstring[); 


Int i; 
meres = O; instring({i) != NULL ; i++) 
{ 
1f (instring[i] >= 'a' && instringli] <= 'z’) 
eüt stringli] = instringli] - *'a' + 'A'; 
else 
outstring[i] = instringli]; 


> 
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outstring{i] = NULL; 


/* strcmpa */ 
/* Norbert H Doerry 
11 July 1988 


This is like strcmp, except that case of letters are not considered 
3p 
strcmpa (stringl, string2) 
Same stringl, *string2; 
{ 
27د ٭ ,۴1ک ٭ د2۳۹‎ 
char *malloc(); 


int ans; 


stri 
Str2 


malloc((unsigned) strlen(stringl) + 1); 


malloc((unsigned) strlen(string2) + 1); 


EM rouc(stringl,str1); 
Bctcuc(string2,str2): 
ans = strcmp(strl,str2); 
free (strl); 

free (str2); 


return ans; 


ENstrncmpa */ 
/* Norbert H Doerry 
EJuloy 1988 


This is like strncmp, except that case of letters are not considered 
A 
strncmpa (stringl, string2,n) 
Baars Stringl, *string2; 
Ent n; 


Bur *strl,*str2; 
char *malloc(); 
int ans; 


ser | 
str2 


malloc ((unsigned)strlen(stringl) + 1); 


malloc((unsigned)strlen(string2) + 1); 


EN touc(stringl,str1); 
EEctoucí(string2,str2); 
ans = strncmp (strl,str2,n); 


free (str]); 


free (str2); 


return ans; 


aS 
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Beestrsplit */ 

/* This routine returns a substring of an input string. The substring 
begins after n words are encountered in the input string. It ends 
on the encounter of a new line character or the end of the input 
string. len is the maximum length of string. 

Ed 

strsplit (inline,s,n, len) 

char *inline, *s; 

int n,len; 


motel, j,k; 
1 = QO; 
while (inline[i) == ' ' ) i++; /* strip off leading blanks */ 
for (j = 0; j «n && inline(i] ! NULL ; j++) /* read in n words */ 
{ 
While (inline({i} != NULL && inline[i) != ’ '! && inline(i] != 'At') i++; 
/* strip off trailing blanks and tabs */ 
me (inlinefi] == ° ' || inlineli] -- 'Nt') ict; 
} 
k = QO; 


femcepy string */ 


while (inline[i] != NULL && inline[i] != '\n’ && k < len - 1) 
s{k++] = inline(1++]; 


/* terminate with NULL */ 
ze) = NULL; 


strip off trailing blanks */ 


for (j = strlen(s) - 1; s[j) ==’ ’ 11 s{j] ner] 


s{j] == '\n’ ; s(3--] = NULL); 


ENstrstrip */ 

/* strstrip strips a string of leading and trailing spaces and tabs */ 
strstrip(s) 

char *s; 

( 


Ent i,j; 


/* find first none space or tab */ 
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for (i- 0 ; sli] -- ' ' || sli] -- 'N&' ; it4); 
ENCOPY string */ 
EN 0 ; s[i] != NULL ; s[j++] = s[i++]); 


s(j] = NULL; 
/* delete trailing spaces and tabs and Cr*/ 


strlen(s) - 1 ; 


== 'An' ; 


for (j = 
215) 


s[j] == ' ' 
s[j--) = NULL); 


(ڑا ١١ا‏ 


/* strextract */ 


/* strextract returns the nth word in a string 


strextract (in, out,n,len) 
Marin, out; /* in is the input string , out 
int n,len; /* n is the desired word number 


( 


int i,j; 


/* strip off the leading spaces and tabs */ 


== ء٢۰۶۱‎ 


SE 


i 


, len is max len of out */ 


is the output string 


EBEN 0 - infi] ==’ ’ J| in(i] == 'Nt' ; itt): 
Eunore the first n-1 words */ 
HAS = 0; 5<n- 1; 3++) 
( 
while (in[i] != ' ’ && in[i] !9 'Nt' && in(i] != NULL) itt; 
while (in[i) == * * [|| in[i) 9-2 'Nt') itt; 
) 
ENCopy the nth word */ 
for (j = 0 ; j < len - 1 && in[i) ! NULL && in[i)] !' ' && inli] !5 'Nt' 


Eni) 'Xn' ; jt , itt) 
( 
EuEf 3] = inl[i]; 
) 
out [j] = NULL; 
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road device.c Wi 


/* Norbert H. Doerry 


22 October 1988 


This routine loads in the device characteristics for a given number of 


devices. 


7 
#include <stdio.h> 
#include "doerry.h" 


load device(d,n,in,typ,d function,d name,ndev) 


DEVICE **d; /* array of pointers to device structures */ 
int n; /* number of device structures to read in */ 
Ent typ; /* beginning number used for type 27 
ENDE *in; /* input file stream Wi 
E function) (); /* array of pointers to device functions */ 
char *d name[]; /* array of device names x / 
int ndev; /* total number of devices x / 


{ 
EC j, k, ans , typa; 


ans = 0; 
typa = typ; 


/* read in data from file */ 


ESE (=0 ; 1 < n ; typat+ , itt) 
{ 


j = read_device(d[i],in,typa); 
/* see if bad data */ 


if (j == 1) 
{ 
printf(" ERROR reading %d device : %s\n",typa,d[i]->name); 


ans = 1; 


else if (j == 2) 
{ 


printf(" EOF reached reading $d device : %s\n",typa,d[i]->name); 


return 2: 


fork =O Strcemp(dli]->name,d name[k]) != 0 && k < ndev ; k++); 


if (k < ndev) /* found the name */ 
{ 
dir funetion[k]; /* copy the function address */ 
) 


else 
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printf(" ERROR device $s is undefined : %s\n",d[i]->name); 
ans = ]; 


return ans; 
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/* load_element.c */ 


/* Norbert H. Doerry 
9 November 1988 


This file contains a function for loading the element descriptions 
from an input file. The form of the element description is : 


DEVICE ELEMENT 
PARAMETER NAME PARAMETER 
| | it 
27 Sl 
7 ës: 
END 


where 
DEVICE is the name of the device type (i.e. resistor) 
ELEMENT is the specific element name (i.e. R1) 
PARAMETER NAME is the name of the DEVICE PARAMETER (i.e. R) 
PARAMETER is the value of the Parameter (i.e. 100 ) 
additionally, an INCLUDE statement can be substituted for an 
Element Description. An INCLUDE statement has the following 
form: 
INCLUDE filename 


where 'filename' is another file containing element descriptions 


Modified 9 January *** 


changed parameter for passing stream. Now pass structure 
of STREAM PTR instead of FILE. This improves include file 
handling. 


E 


/* The following structure is used to read in the elements because the 
total number of elements is not known until all the devices are read 
in. 


E/ 


#include <stdio.h> 
include “doerry.h" 


typedef struct Element Ptr 
{ 
ELEMENT *e; /* present element */ 
Struct Element Ptr *last; /* pointer to last structure holding element */ 


} 
ELEMENT PTR; 
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int load element (strml,ee,nelm, dev,ndev,errflag) 
STREAM PTR **strml; 


ELEMENT ***ee; /* pointer to array of element descriptions */ 
int *nelm; /* number of elements read in Ge 

DEVICE **dev; /* array of device descriptions  */ 

int ndev; /* number of devices in above array */ 


int ھ٭٭‎ ۶ 
ELEMENT PTR *temp_elmnt , *elmnt; 
ELEMENT **e; 
int i,flag,serial; 
char *calloc(); 
STREAM PTR *temp strm,*strm; 
char filename [MAXCHAR]; 


/* initialize starting structures */ 


elmnt = (ELEMENT PTR *) calloc(1, sizeof (ELEMENT PTR)); 


elmnt->e = (ELEMENT *) calloc(1,sizeof (ELEMENT)); 
elmnt->last = NULL; /* indicator that this is the first stream */ 
serial = 1; 
while (1) 
{ 
strm = *strml: 
flag = read element (elmnt->e, strm, serial, dev, ndev) ; 


/* see if reached EOF */ 


if (flag == 2) 
{ 
if (strm->last == NULL) /* read to the end of the first file */ 
{ 
free (strm); 
printi" e Error Line td in file $s\n", 
strm->line nbr, strm->filename); 
prunt£f(* *** BOF before NETWORK statement :\n\n"); 
*errflag = 1; 


return |» 


/* read to the end of one of the include files */ 
fclose (strm->in); 

/* bump back to last stream */ 

temp_strm = strm; 


strm = strm->last; 


free(temp strm); 
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*strml = strm; 


continue; 


/* see if unable to find device type */ 


if (flag == -2) 
{ 


/* see if include file */ 
if (strncmpa (elmnt->e->name, "INCLUDE", 3) == 0) 
{ 


open include (strml, elmnt->e->name, errflag); 


continue; 


/* see if end of section */ 


if (strncmpa (elmnt->e->name, "NETWORK", 7) == 0) 
{ 


flag = 0; /* successful load */ 


break; 


/* genuine bad device name */ 


pruntf(" *** Error Line %d in file %s\n", 
strm->line nbr,strm->filename); 
Printf(" *** Unable to Interpret : Se ***\n",elmnt->e->name); 
*errflag = 1; 
continue; 


/* read in an element */ 


/* see if bad data encountered */ 


if (flag == 1) 
{ 


printf(" *** Brror Line $d in file %s\n", 
stomscdsnesnbrostrmscdhoidename) 

۶ 3990 *** Encountered Bad Data Reading Element : %s ***\n", 
elmnt->e->name); 


zerrflag = 1; 


/* see if incomplete definition of parameters */ 
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if (flag == -1) 
{ 


prruntf('" *** Error Line td in file ts\n", 
strm->line_nbr, strm->filename); 

printf(" *** Incomplete Parameters for Element : $s ***\n", 
elmnt->e->name) ; 

Zerrflag = ]; 


/* allocate the element structure block for the next element */ 


temp elmnt = elmnt; 

elmnt = (ELEMENT_PTR *) calloc((unsigned) 1,sizeof (ELEMENT_PTR)); 
elmnt->last = temp elmnt; 

(ELEMENT *) calloc( (unsigned) 1,sizeof (ELEMENT) ); 
serial++;  /* increment serial number of element */ 


elmnt-»e 


/* create element array */ 


serial--; /* serial is now the number of elements */ 
*nelm = serial; 


e = (ELEMENT **)calloc((unsigned) serial, sizeof (ELEMENT *)); 


*ee = e; 
/* create array of element pointers */ 
for (i = 0 , elmnt = elmnt->last ; elmnt != NULL;i++) 
{ 
e[i] = elmnt->e; 
temp elmnt = elmnt; 
elmnt = elmnt->last; 
free (temp elmnt); 


*strml = strm; 


return O; 


Ee 
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sad initial.c */ 
/* Norbert H. Doerry 


20 January 1989 
The following sections comprise the initialization section 


INITIALIZE 
EXTERNAL INPUTS INITIALIZATION 
NODE VOLTAGE INITIALIZATION 


The initialization section ends when the keyword SIMULATION is reached 


INITIALIZE 
each line of the initialization is of the form: 


ELEMENT : VARIABLE VALUE 


where 'VARIABLE' can be a state or input variable. 
the section ends with the keyword 'END' 


EXTERNAL INPUTS INITIALIZATION 
each line of the external input initialization is of the form: 


ELEMENT : EXTERNAL INPUT VALUE 
the section ends with the keyword 'END' 


NODE VOLTAGE INITIALIZATION 
each line of the node voltage initialization is of the form: 


NODE : SUBNODE VALUE 
the section ends with the keyword 'END' 


NOTE : this initialization is only necessary for Voltage Subnodes. 
If a current subnode or a reference voltage subnode is specified, 


a warning is generated. 


The initialization section ends when the keyword SIMULATION is reached 
which indicates that the the next and final section starts. 


4 

#include <stdio.h> 
#include <math.h> 
#include "doerry.h" 


Hoad initial (strml,e,nelm,nn, nnode, inline, errflag,eof) 
SIREAM PIR **strml; 

ELEMENT **e; 

int nelm; 

char *inline; 


Ent *errflag; 
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NODE **nn; 
int nnode; 
int eof; /* if eof = O, then looks for 'SIMULATATION' to terminate section 


otherwise, looks for the end of the file */ 


mE 3,k,flag:; 

STREAM PTR *temp strm,*strm; 
char *calloc(); 

char filename [MAXCHAR]; 


strstrip(inline); 


flag = 0; 
while (1) 
{ 
if (strncmpa (inline, "INITIALIZE",7) == 0) 
flag = read init(strml,e, nelm, inline, errflag); 
else if (strncmpa(inline, "EXTERNAL",7) == 0) 
miage— read ext init (strml,e,nelm, inline, errflag) ; 
else if (strncmpa(inline, "NODE VOLTAGE",7) == 0) 
Ela = read node volt (stiml, nn, nnode, inline, err£lag); 
else if (strncmpa (inline, "SIMULATION",7) == 0) 
{ 
return O; /* read to end of initialization routine */ 
} 
else if (strncmpa(inline, "INCLUDE",7) == 0) 


Seeneinclude(strml, inline, errflag) ; 
else if (inline[0) !2 '!' && inline(0) !2 NULL && inline[0) != '4') 


{ 
۶۲۴۰٣ = *strml; 
printf(" *** Error Line %d in file %s\n", 
strm >line nbr, strm->filename); 
printf(" *** INITIALIZE Syntax Error :\n %s\n\n",inline); 
*errflag = 1; 


/* see if flag is one, which signifies that other routines ran out 
of file to read */ 

iF (flag != 0) return 1; 

/* read in next line */ 

strm = *strml; 


strm-»line nbr += 1; /* increment line counter */ 
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} 


while (fgets(inline,MAXCHAR, strm->in) == NULL) 
{ 


/* Read to the end of the file, time to pop up one in the include 


stack */ 


£close (strm->in}; 


if (strm->last == NULL) /* read back to the beginning */ 


{ 


free (strm); 


/* see if eof is set, if so, then done */ 


if (eof) return 0? 


/* otherwise, reading to an end of file is an error */ 


Printi ( T *** Error Line $d in file ts\n", 
strm->line nbr, strm->filename} ; 


printf” *** EOF Reached before SIMULATION statement\n"); 


*errflag = 1; 
return 17 


temp strm = strm; 
strm = strm->last; 
free(temp_strm); 


*strml = strm; 


) 


strstrip(inline); 


En include (strml, inline, errflag) 
EIREAM PTR **strml; 


char *inline; 


unt *errflag; 


{ 


char filename [MAXCHAR] ; 
STREAM PTR *temp strm,*strm; 


Ferm = *strml; 
/* grab filename */ 
strsplit (inline, filename, 1, MAXCHAR); 


/* allocate new stream pointer structure */ 


temp_strm = strm; /* save present pointer */ 
strm = (STREAM_PTR *) calloc( (unsigned) 1,sizeof(STREAM PTR)); 
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strm->last = temp_strm; 
EErm-oline nbr - 0; 


strcpy (strm->filename, filename); 
Berry to open file */ 

strm->in = fopen(filename, "r"); 
/* see if unsuccessful */ 


if (strm->in == NULL) 
{ 


/* bump back to last stream */ 


temp_strm = strm; 
strm = strm->last; 


free (temp _strm); 


A *X* Error Line $d in file %s\n", 


strm->line nbr,strm->filename) ; 


printf(" x*** Unable to Open Include File : sin", filename); 
*errflag = 1; 
return 1; 
) 
else 
{ 
printf(" @@@ Successfully Opened Include File : %s\n", 


filename); 


*strml = strm: 


return 0; 


Beeoeinit (strml,e,nelm, inline, errflag) 
ESEEAM PTR **strml; 
ELEMENT **e; 
int nelm; 
Shar “inline; 
Int *errflag; 
{ 
STREAM PTR *strm,*temp strm; 
char line [MAXCHAR]; 
char e_name [MAXCHAR]; 
char v_name [MAXCHAR]; 
m3, j,k,ncnt; 
double value; 


while (1) 
( 
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/* read in next line */ 
strm = *strml; 


scrm line nbr += 1; /* increment line counter */ 


while (fgets (inline, MAXCHAR, strm->in) = 
{ 


/* Read to the end of the file, time to pop up one in the include 
stack */ 


NULL) 


£fclose (strm->in); 


if (strm->last == NULL) /* read back to the beginning */ 
{ 

free (strm); 

printf(" *** Error Line $d in file $s\n", 
strm->line nbr,strm->filename) ; 

print fl (” ٭٭٭‎ BOF Reached before END statement in %s\n", 
"INITIALIZE" ) ; 

*errflag = 1; 

return ۶,7 


temp strm = strm; 
strm = strm->last; 
ree (temp SCE); 


*strml = strm; 


} 


sErstrip(inline); 
/* see if a comment line */ 


if (inline[0] == NULL || inline[0] == '!” || inline[0] == "Er: 
continue; 


/* see if end command */ 


if (strncmpa (inline, "END",3) == 0) 
break; 


/* see if include file */ 
if (strncmpa (inline, "INCLUDE"”,7) == 0) 
{ 


open include (strml, inline, errflaág),; 
continue; 


/* must be an element variable initialization */ 


SE = 
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/* copy element name */ 


for (1 = O ; inline(i] ! NULL && inline[(i) !5 ':' ; itt) 
Ernameli]5 - inlxse[pr]; 

e name(i) - NULL; 

strstrip(e name); 


/* strip off tabs and spaces */ 


for (i++; inline[i] == * * 1٣7510776۲7 == t; itti: 
/* copy variable name */ 
for (j = 0 ; inline(i] != NULL && inline[i) != ۶ ’ && inline[i) != ’\t’; 
i++, j++) 
v name[j] » inline[i]; 
v name(j)] = NULL; 
strstrip(v name); 
/* copy value */ 
Bor (y) - 0 ; inline[i] !2 NULL ; itt,j-*t) 
line(j) = inline[i]; 
line(j] = NULL; 
Stoda (line, &value, &nent,1); 
if (nent == 0) /* initialize to zero */ 
value = 0.0; 
/* find the element */ 
for {i = 0 ; i < nelm ¿4 strcmp(e name, e(i]->name) != 0 ; i++); 


if (i >= nelm) /* didn't find the element */ 
{ 
printf(" *** Error Line %d in file %s\n", 
strm->line nbr,strm->filename); 
printf" *** ELEMENT Not Found Error (%s) :\n %s\n\n", 
e name, inline); 
Merce lago= 1; 


continue; 


/* find the state variable */ 


CSE (j) = و0‎ > elil=>device=>nbr states ££ 
strcmp (v_name, e(i]->device->state name(j]) != 0 ; 3++); 


if (j < el[li]->device->nbr states) 
( 
ita lize the state variable */ 
e[i]-»con.init state[j) = value; 


continue: 
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/* see if its an input variable */ 


for (] = 0 7;7 3 < el] deyree-SnBrrinputs && 
strcmp(v name,e[i]-»device-»input name[j]) != O 


3۶ <eli)->device->nbr inputs) 
{ 
/* initialize the input variable */ 
e[i]->con.init_in[j) = value; 
continue; 


/* can't recognize the variable */ 


Error Line %d in file %s\n",‏ *** "( ہجےج 
strm->line_nbr,strm->filename);‏ 


Printf(" *** VARIABLE Not Found Error (%s) :\n %s\n\n", 


v name,inline); 


*errflag - 1; 


return O0; 


۰۰٠۰ Ext init (strml,e,nelm, inline, errflag) 
STREAM PTR **strml; 
ELEMENT **e; 
int nelm; 
char *inline; 
mit *errflag; 
{ 
STREAM PTR *strm, *temp_strm; 
char line [MAXCHAR]; 
char e_name [MAXCHAR]; 
char v_name [MAXCHAR]; 
mat i,j,k,nent; 
double value; 


while (1) 
{ 


/* read in next line */ 
strm = *strml; 


strm->line nbr += 1; /* increment line counter */ 


= 3278 





load initial.c 


while (fgets (inline, MAXCHAR, strm->in) == NULL) 
{ 
/* Read to the end of the file, time to pop up one in the include 
stack */ 


£fclose (strm->in); 


if (strm->last == NULL) /* read back to the beginning */ 
{ 

free (strm); 

printf(" *** Error Line %d in file %s\n", 
strm->line nbr,strm->filename); 

printf(" *** EOF Reached before END statement in %s\n", 
STNITIALIZE"): 

*errflag = 1; 


return 1l; 


temp _ strm = strm; 
strm = strm->last; 


free(temp strm); 


*strml => strm; 


) 


strstrip (inline); 
/* see if a comment */ 


A line(0) == NULL || inline[0] == '!' || inline[0] == '#'} 
continue; 


/* see if end command */ 


if (strcmpa(inline, "END") == 0) 
break; 


/* see if include file */ 


if (strcmpa(inline, INCLUDE") -- 0) 
( 
Spensinelude(strml,inline,errrlag), 


continue: 


/* must be an element variable initialization */ 

/* copy element name */ 

for (i = 0 ; inline([i] '= NULL ££ inline[1] != ۶ ء:‎ ; i++) 
e_name[i] = inline [i]; 


e name[i] = NULL; 


strstrip(e name); 
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/* strip off tabs and spaces */ 
for (i**; inline(i) 2-2» ' ' || inline(i) 2-2 'Nt'; i++); 


/* copy variable name */ 


for (j = O ; inline[i}) != NULL && inline[i}) != ' ' && inline[i}) != ‘\t’; 
i++, j++) 
v name[j) - inline[i]; 


v name[j)] = NULL; 
strstrip(v name); 


/* copy value */ 


for (j = 0 ; inline[i) != NULL ; i++, j++) 
line[j} = inline[i]; 
line[j3j) = NULL; 


Stoda (line, &value,&ncnt, 1); 


ment == 0) /* initialize to zero */ 


value = 0.0; 
/* find the element */ 
Sti = 0 ; 1 < nelm && strcmp(e name,e[i]j->name) != 0 ; itt); 


if (i »- nelm) /* didn't find the element */ 
( 
|printf('" *** Error Line td in file *s Yin", 
strm->line nbr,strm->filename); 
printf(" *** ELEMENT Not Found Error (%s) :\n *s\n\n", 
e name, inline); 
*errflag = 1; 


continue; 


/* find the external input variable */ 


ır (j = 0 ; 3 < e[i}->device->nbr ext _ in && 
stremp (v_name,e[i}->device->ext_in name[j)) != 0 ; j++); 


if (jJ >= e[li)->device->nbr ext in) /* didn't find the external input*/ 
{ 
printf(" *** Error Line td in file tsin”, 
stiom -line l nbr, strm->filename); 
۶730) *** EXTERNAL INPUT Not Found Error (Gei :\n %s\n\n", 
v_name,inline); 
kerrflag = 1; 


continue: 


/* initialize the state variable */ 
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ei] >eon.init ext in[j) = value; 


return 0; 


read node volt(strml,nn,nnode,inline,errflag) 


STREAM PTR **strml; 

char *inline; 

int *errflag; 

NODE **nn; 

int nnode; 

{ 
STREAM PTR *strm, *temp_strm; 
char line (MAXCHAR]; 
char n name[MAXCHAR]; 
char s_name(MAXCHAR]; 
we l, k, nent; 
double value; 


while (1) 
{ 


/* read in next line */ 


strm = *strml; 


Errm->line nbr += 1; /* increment line counter */ 


while (fgets(inline,MAXCHAR, strm->in) 


{ 


/* Read to the end of the file, 


stack */ 


fclose (strm->in); 


if (strm->last == NULL) /* read back 


( 


free (strm); 


time 


NULL) 


to pop up one in the include 


to the beginning */ 


EEINEE( FX Error Line sd in file %5\n”, 


strm-»line nbr,strm-»filename); 
printf(" *** EOF Reached before END statement in %s\n", 


"INITIALIZE" ); 
*errflag = 1; 
retürn 1; 


temp strm - strm; 
strm = strm->last; 


free (temp_strm); 


strml = strm; 
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) 


strstrip(inline); 
/* see if comment line */ 


if (inline(0) ss NULL |] inline(0] == '!' || inline[O0) == "Ei" 
continue; 


/* see if end command */ 


if (strncmpa (inline, "END",3) == 0) 
break; 


/* see if include file */ 
if (strncmpa (inline, "INCLUDE", 7) == 0) 
{ 


open include (strml,inline,errflag); 
continue; 


/* must be an node voltage initialization */ 

/* copy node name */ 

for (i = O ہہ‎ inline(i]) != NULL && inline[i}) != ':' ; itt) 
m name(ij = inline[i]; 

n name(i] = NULL; 

ENEE EE LE name); 

/* strip off tabs and spaces */ 


for (i++; inline[i]) ==" * |] inline(i) == '\t’; itt); 


/* copy subnode name */ 


ES: ()] = O ; inline(i] != NULL ££ inline(i] != ’ * €£ inline(i] != 'At'; 
i++, j++) 
s name(3] = inline[i]; 


s name(3] = NULL; 
strstrip(s name); 


/* copy value */ 

ftor (J) = 0 ; inline(i] != NULL ; i++, j++) 
line(3] = inline(i); 

line(3j] = NULL; 


Stoda (line, &value,&ncnt, 1); 


if (nent == 0) /* initialize to zero */ 
value = 0.0; 


SI‏ د 
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/* find the node*/ 
for (1 = 0 ; 1 < nnode && stremp(n name,nnli)->name) != 0 ; i++); 


if (i >= nnode) /* didn't find the element */ 
{ 
printf(" *** Error Line %d in file %s\n", 
strm=->line nbr,strm->filename) ; 
printf(" *** NODE Not Found Error (%s) :\n %s\n\n", 
n name, inline); 
*errflag = 1; 


continue; 


/* find the subnode*/ 


for (320; 3 € nn[i]-»2nbr subnode ££ 
strcmp(s name,nn[i]-»5subnode[j]-»name) (=707, j++); 


1f (j »— nn[i]-2nbr subnode) /* didn't find the subnode */ 
( 
Brintf(" *** Error Line td in file %s\n", 
stim -line nbr, strm=>filename); 
printf(" *** SUBNODE Not Found Error (%s) :\n %s\n\n", 
s name,inline); 
*errflag = 1; 


continue; 


/* initialize the subnode */ 
map) ->-subnode[j)->init volt = value; 
/* see if current subnode */ 


if (nn[i]->subnode[j]->type == 1) 
{ 
printf("*** WARNING Line %d in file %s\n", 
strm >lıne nbr,strm- >filename); 
prantf(" *AÑ Initialization of Current Subnode Ignored :\n"); 
printf(" %s\n\n",inline); 


/* see if reference node */ 


else if (nn[(il->subnode[3]->ref flag == 1) 
( 
printf("*** WARNING Line $d in file %sin", 
strm->line_nbr, strm->filename); 
printf(" *** Initialization of Reference Voltage Subnode :\n"); 


printf(" *s\n\n.,inline)? 
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load network.c 


/* load network.c */ 


/* Norbert H. Doerry 
26 January 1989 


This file contains a function for loading the network descriptions 


from an input file. 


The network descriptions are read in until one of the following 


keywords is reached: 


INITIALIZE 

EXTERNAL (INPUTS INITIALIZATION) 
NODE VOLTAGE 

SIMULATION 


The INCLUDE keyword causes data to be taken from 
that file. 


7 


#include <stdio.h> 
#include "doerry.h" 


int load network (strml,nn,nnode,e,nelm,errflag) 
STREAM_PTR **strm]; 
NODE ***nn; /* an array of pointers to NODES */ 
int *nnode; 
ELEMENT **e; 
int nelm; 
int *errflag; 
( 
STREAM PTR *strm,*temp strm; 
char *calloc(); 
int i,j,k,l,m,mm,flag,serial,node ctr; 
NODE *n,*new node; 


char filename [MAXCHAR]; 
strm = *strml; 


n = (NODE *) calloc(1, sizeof(NODE)); 


n->last = NULL; 
flag = 0; 
node ctr - 0; 
while (1) 
( 
flag = read network (strm,n,e,nelm,errflag); 


/* see if end of block */ 


if (flag == -1 && (strncmpa(n->name, "INITIALIZE",7) == 0 || 
strncmpa (n->name, "EXTERNAL", 7) == OQO | 
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strncmpa (n->name, "SIMULATION", 7) == O || 
strncmpa (n->name, "NODE VOLTAGE", 7) == 0)) 


flag = 0; 
break; 
/* see if include file */ 


if (flag == -l && strncmpa(n->name, "INCLUDE",7) == 0) 
{ 


/* grab filename */ 
strsplit (n->name, filename, 1,MAXCHAR) ; 


/* allocate new stream pointer structure */ 


temp strm = strm; /* save present pointer */ 

strm = (STREAM PTR *) calloc( (unsigned) 1, sizeof (STREAM PTR)); 
strm->last = temp_strm; 

strm->line nbr = 0; 


strcpy (strm->filename, filename) ; 
/* try to open file */ 

strm->in = fopen(filename, "r" 

/* see if unsuccessful */ 


if (strm->in == NULL) 
{ 


/* bump back to last stream */ 


temp_strm = strm; 
strm = strm->last; 


free (temp_strm); 


pIrntrt(«**obrror Line td in file ts\n", 


strm->line nbr, strm->filename) ; 


printf” *** Unable to Open Include File : %sin",filename); 
*kerrflag 1; 
) 


else 


( 
flag = 0; 
printf(" @@@ Successfully Opened Include File : %sin", 
filename) ; 


continue; 
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if (flag == -1) 
{ 


Primer (: *** Error Line %d in file #s\n", 
sefrme>linernbr, strm->filename); 


Printrf(" *** NETWORK Syntax Error :\n %s\n\n",n->name); 
free(n-»name); 
*errflag = 1; 


continue; 


me ee if read to end of file, if so, pop up one include file */ 


if (flag == 2) 
{ 


if (strm->last == NULL) /* read to the end of the first file */ 
{ 


Beine +*+ Error Line td in file $sin", 


sen, line nbr, strm -filename); 
۲۶7) ٭٭٭‎ EOF reached in NETWORK section:\n\n"); 
break; 
/* read to the end of one of the include files */ 
£fclose (strm->in); 
/* bump back to last stream */ 
temp strm = strm; 
strm = strm->last; 


free (temp_strm) ; 


flag = 0; 


continue; 


/* allocate the new node */ 


new node = (NODE *) calloc(1,sizeof (NODE)); 


if (new_node == NULL) 
{ 
"errflag = 1; 


*strml = strm; 


BEIRLE( FX Error Lille td in file %s\n", 
strm->line nbr, strm->filename) ; 
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Peiner! *** Out of MEMORY\n"); 


return 7 


new node->last =n; 


n = new node; 


/* increment node counter */ 


pode ctr++; 


if (flag) 
{ 
*strml = strm; 


*errflag = 1; 
/* stop doing any more work if an error has been detected */ 


if (flag == -3 || flag == 2) 
return 1; 

else 
return 0; 


) 


/* put the NODE structures into an array of pointers */ 
*nnode = node ctr; 

pom — (NODE **) calloc(node ctr + 1, sizeof (NODE *)); 
nn; [node ctr) =n; 


O ; 1 < node ctr ; i++)‏ — اکچ 
{ 
mony inode ctr > 1 = 1] = n->last;‏ 


n = n->last; 


/* check which elements are used and not used in network description */ 


/* print out those elements which are not used */ 


EST (i1 = 0,j) = 0 ; i < nelm ; i++) /* j is first time flag */ 
{ 


if (e[il->flag == 1) continue; /* goto next element */ 


if (j == 0) 
{ 
printf("\n\n *** WARNING : The following Elements are defined"); 
Printf(" but not used : \n"); 
De ley 


printf (" %s\n",e[i]->name) ; م7‎ 
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/* check to ensure that for all the elements that are used, all of their 


inputs are attached to a node. */ 


EU 0; i < nelm ; i++) /* j is first time flag */ 
( 


if (e(i]->£lag == 0) continue; /* go to next element if not used */ 


/* loop for each node variable */ 


fork = جح‎ O ; k < el[il->device-=>nbr_inputs ; k++,] = 0) 
{ 
/* loop for each node */ 


Borel = O; 1 < *nnode ; 1++) 
{ 


/* loop for each subnode */ 


For (m = 207. mze Zinn) (I)=>nbr subnode ; m++) 
{ 


/* loop for each connection in each subnode */ 
for (mm = 0 ; mm < (¥*nn) [1] ->subnode[m]->nbr_ connect ; mm++) 


{ 


if (strcmp (e [i) ->name, 
(*nn) (1] ->subnode (m] ->element [mm]) != 0) 
continue; /* go on if element names don’t match */ 
ieser mp (elil >deviee-2inpuername[k], 
(*nn) (1) ->subnode [m) ->variable(mm]) != 0) 
continue; /* go on if variable names don't match */ 


j++; /* j is the number of nodes an input variable 
is attached to */ 


if (j == 0) 
{ 


printf(" *** ERROR : Input Variable not attached to a node :\n"); 
*** Element : %s || Input Variable : %s ***\n", 


printf() 
e[i]->name, 
٭‎ )1[ >deviee->input name [k]); 
*errflag = 1; 


} 
else if (j != 1) 


{ 
printf(" *** ERROR : Input Variable attached to %d nodes :\n", 


2005 
700 ۳ <x Element 2: $s || Input Variable : Ts ***in", 


e[i]-»name, 


Ro 


load network.c 


e[i]-»device-»input name[k]); 
*errflag = 1; 


*strml = strm: 
return flag; 


} 
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/* load simulation.c */ 
/* Norbert H. Doerry 


27 January 1989 


This routine loads in all the information required to run the simulation 
of the program. The Display section lists all the external output 
variables that may be printed out. 


TIME STEP command sets the time step increment. 

TMIN command sets the starting time of the simulation. 

TMAX command sets the ending time of the simulation. 

DELTA is the fractional part of a variable that is used in calculating 
the  jacobian. 

DELTA MIN is the minimum change in a variable for calculating the 
jacobian in case the variable is very small. 

PRINT STEP sets the time increment for printing the values of the 
external variables. 


MAX ITERATION is the maximum number of iterations of the Newton-Raphson 


method used before a failure to converge error is generated 


CONVERGE is the maximum mean square error of the implicit vector that 
is allowed for a balanced solution. 


The Reference Section sets the voltage and current nodes and subnodes 
that are to be used as references. The reference voltage node is 
always set equal to specified voltage (default is zero volts). 

The reference current node is not used to create a current law equation 


(This prevents a singular matrix 


The External Input Command specifies the values of different 
external inputs at different times. 


The format is: 
SIMULATION 


DISPLAY 
ELEMENT : EXTERNAL OUTPUT VARIABLE 
|] || 
|| |] 


AIR Sulz 
A 7 
END 
TIME STEP VALUE 
TMIN VALUE 
TMAX VALUE 
PRINT STEP VALUE 
DELTA VALUE 
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DELTA MIN VALUE 


REFERENCE 
V : NODE : SUBNODE VALUE 
I : NODE : SUBNODE 
END 


MAX ITERATION VALUE 
CONVERGE VALUE 


EXTERNAL INPUTS 
ELEMENT : EXTERNAL INPUT VARIABLE VALUE TIME 
| || || || 
I | 7 || | 
bu 0ھ"‎ SZ Els 


37 Nd 7 M 
END 


m 

#include <stdio.h> 
include <math.h> 
#include "doerry.h" 


#define DEBUG O 


load simulation (strml,e,nelm,nn,nnode,q,nbrq, simulate, pv, errflag) 


STREAM PTR **strml; /* pointer to pointer of current stream structure */ 
ELEMENT **e; /* array of pointers to element structures t 
int nelm; /* number of elements in element array */ 
NODE **nn; /* array of pointers to node structures GEN 
int nnode; /* number of elements in node array ur 
BSUEUE ***g; /* pointer to an array of pointers to queue structures = 
ixto*nbrq; /* number of elements in array of pointers to queue structures */ 


SIMULATE *simulate; /* structure for simulation commands */ 
PRINT VAR BV pointer to first PRINT VAR structure * / 
int *errflag; /* error flag, if = 1, cannot run simulation */ 
( 
mica, \, ) j,k, flag; 
SIREAM PTR *temp stxrm, *stxrm; 
char *calloc(); 
char inline [MAXCHAR]; 
BUEUE **qq,*q temp; 
double temp; 


EGER C(QUBUE **) calloc(l, sizecf(QUEUBE *)); 
*qq = (QUEUE *) calloc(1, sizeof(QUEUE )); 


(*qq)->last = NULL; /* signal that this is first queue */ 
0020102 1; 


flag = 0; /* flag for ran out of file too soon */ 
while (33) 
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/* read in next line */ 


strm = *strml; 
strm->line nbr += 1; /* increment line counter */ 
while (fgets(inline, MAXCHAR, strm->in) == NULL) 


( 
/* Read to the end of the file, time to pop up one in the include 
stack */ 


fclose(strm-»in); 
if (strm->last == NULL) /* read back to the beginning, we are done */ 


{ 


free (strm); 


0۳ 
break; 
} 
temp_strm = strm; 
strm = strm->last; 


free(temp strm); 


*strml - strm; 


if (jj == 0) break; /* exit loop if done */ 
strstrip (inline); 
/* see if line is a comment */ 


if (inline[0)] == '!' || inline[0) == '*' || inline[0)] == NULL) 
continue; 


/* see if a valid command */ 


if (strncmpa(inline, "DISPLAY",7) == 0) 
flag = read display(strml,e,nelm,nn,nnode,pv,errflag); 
else if (strncmpa (inline, "TIME STEP",7) == 0) 


read value (strml,&(simulate->dt) ,inline,errflag); 


else if (strncmpa (inline, "TMIN",4) == 0) 
read value (strml,&(simulate->tmin),inline,errflag); 


else if (strncmpa (inline, "TMAX", 4) == 0) 


read value (strml, &(simulate->tmax),inline,errflag); 


else if (strncmpa (inline, "PRINT_STEP",7) == 0) 


read value(strmi,&(simulate-»print dt),inline,errflag); 
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else if (strncmpa (inline, "DELTA MIN", 8) == 0) 
read value(strml, £(simulate->delta min) inline, errflag); 


else if (strncmpa (inline, "DELTA", 4) == 0) 
read value (strml, &(simulate->delta), inline, errflag); 


else if (strncmpa (inline, "CONVERGE",7) == 0) 
Beac value (strmi, &(simulate->converge) , inline, errflag) ; 


else if (strncmpa(inline, "MAX ITERATION",7) == 0) 
{ 


read value(strml, &temp, inline, errflag) ; 


simulate->max_iteration = (int) temp; 
} 
else if (strncmpa (inline, "REFERENCE", 7) == 0) 
flag = read reference (strm]l, simulate, nn, nnode, errflag); 
else if (strncmpa (inline, "EXTERNAL INPUTS",7) == 0) 


flag = read external(strml, qq,e,nelm, errflag); 


else if (strncmpa (inline, "INCLUDE",7) == 0) 


S6pen include (strml, inline, errflag) ; 


if (flag) return 1; /* ran out of file too soon */ 


/* find out how many queve structures we have */ 


q_temp = zaq; 


for (1 = 0 ; q temp->last != NULL ; q temp = q temp->last , i++); 
Enbrq = i; 
if (i == 0) return 0; /* return if no queue structures */ 


/* allocate array for the queve structures */ 
*q = (QUEUE **)calloc(i,sizeof (QUEUE *)); 

/* see if out of memory */ 

if (*q == NULL) 


{ 
printf(" *** OUT of MEMORY ERROR ***\n"); 


*errflag = 1; 
return |: 


/* store pointers in array */ 


- 343 = 








load simulation.c 


oe (q temp = *qq , 1-70 ; 
q_temp->last t= NULL ; 
MEET» = "q temp->lest ;, i++) 
(*q) [1] = q temp->last; 


sort array by time (This is a bubble sort) */ 


flag = 1; 
while (flag == 1) 
( 
flag = O; 
ESE (1 = 1 ; i < *nbrq ; 1++) 
( 
a) [1 ->time >= (*q) [1-1] =>time ) 
continue; Pain proper order */ 


/* must switch two entries around */ 
a temp = (*q) (1); 
feb lp = (*a) [3-1]. 


(*q) [1-1] = q temp; 


Eu set flag to 1 to continue checking */ 


flag = 1; 
) 
) 
/* 
if (DEBUG) 
{ 
ler (1 = O 7 i < *nbrq رز‎ itt) 
printf("elm = %d , var = td , val 9 $f , time — $%$f\n", (*q) [i] ->elm, 
OI] var, 22a) ]=->Svalue , (*q)[1]-»time); 
} 
Gei 


return O; 


read value(strml,val,inline,errflag) 
۲۶۰۶۳۳ ۶۲ ٭٭‎ ت٤‎ ۰۶,۰ 
double *val; 
char *inline; 
fat) *errflag; 
{ 
STREAM PTR *strm; 
char line [MAXCHAR] ; 
Ent ncnt,i; 


double value; 


strm = *strml; 
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/* strip off the command */ 
strsplit (inline, line, 1,MAXCHAR) ; 
strip line */ 

strstrip(line); 

/* convert the number */ 

Stoda (line, £value, £ncnt, 1); 


/* set the initialization value */ 


if (value >= O ££ nent == 1) 
*val = value; 
else 


( 
EE *** Error Line td in file $sin", 
strm->line nbr,strm->filename) ; 
printf(" *** SYNTAX ERROR:Mn %s\n\n", inline) ; 
*errflag - 1; 


/* print results if debug */ 


if (DEBUG) 


printf("inline = %s : line = %s : value = %f\n",inline, line, value); 


read display(strml,e,nelm,nn,nnode,pv,errflag) 


STREAM PTR **strml; /* pointer to pointer of current stream structure */ 
ELEMENT **e; /* array of pointers to element structures 7 
int nelm; /* number of elements in element array GE 
NODE **nn; /* node array 27 
int nnode; /* number of elements in node array 7 
PRINT_VAR *pv;/* pointer to first PRINT_VAR structure in chain x 
Ento*errflag; /* error flag, if = 1, cannot run simulation 7 


{ 
mrt 1,3,k, £lag; 
STREAM PTR *temp strm,*strm; 
mare *calloc(); 
char v name[MAXCHAR],e name [MAXCHAR]; 
char inline([MAXCHAR]; 
PRINT VAR *temp; 


while (1) 
{ 


SAS 
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/* read in next line */ 
strm = *strml; 
strm-»line nbr += 1; 
while (fgets(inline,MAXCHAR, strm->in) 
{ 
/* Read to the end of the file, 


stack */ 


fclose(strm-»in); 


/* increment line counter */ 
== NULL) 


time to pop up one in the include 


if (strm->last == NULL) /* read back to the beginning */ 


{ 


free (strm); 


Beimer(l *** Error Line *d in file %s\n", 


strm->line nbr,strm->filename); 


printf” 
terrtlag = 1; 


return ]; 


temp strm = strm; 


strm = strm->last; 


Ereeitemp strm); 
*strml = strm; 
strstrip(inline); 

/* see if line is a comment */ 


1f (inline [0] 


continue; 


== '!' || inline[0] -- 


E 


/* see if done */ 


if (strncmpa(inline,"END",3) == 0) 
return 0; 


/* see if include file */ 


else if (strncmpa (inline, "INCLUDE", 7) == 0) 
open include (strml,inline,errflag); 


/* must be an element variable descripton */ 


/* copy element name */ 
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for (i = 0 ; inline(i] != NULL && inline[i]) != ':’ ; i++) 
e name[i] = inline[i]; 
e name(i] = NULL; 
strstrip(e_ name); 
/* strip off tabs and spaces */ 
for (i++; inline(i] == ' ' | inline(i] == ‘\t’; itt); 
/* copy variable name */ 
for (j = 0 ; inline[i) != NULL && inline[i) != ' ' && inline[i) != ’\t’; 
i++, j++) 
v_name[j) = inline(i]); 
v name[j) - NULL; 
strstrip(v name); 
/* find the element */ 
for (12 0; i € nelm && stremp(e name,e[iJ->name) != 0 ; itt); 


/* found the element */ 


if (i < nelm) 
( 


/* find the external output variable */ 


for (7 = O ; j «€ eli)-»5device-»nbr ext out && 
strcmp(v name,e[i]-»device-»ext out name[j]) != 0 ; J++); 


if (3j «€ e[i])-2device-»nbr ext out) /* found external output */ 
( 
/* allocate and insert structure */ 
for (temp = pv; temp->next != NULL ; temp = temp->next); 
temp->next = 
(PRINT VAR *) calloc((unsigned) 1 , sizeof (PRINT VAR)); 
temp = temp->next; 
temp->next = NULL; 
/* store the information */ 
temp->e = i; 
temp->v = 7; 


Cemp=>tvyp,= 07 


continue; 


/* look for external input */ 
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for se e[1]se»device-»5nbr ext in && 
stremp (v_name,e[i]->device->ext_in name[j)) != 0 ; j++); 


if (j < e[iJ->device->nbr_ext_in) /* found external output */ 


( 


/* allocate and insert structure */ 


for (temp = pv; temp-»next !- NULL ; temp = temp-»next); 
temp->next = 

(PRINT VAR *) calloc((unsigned) 1 , sizeof(PRINT_VAR)); 
temp = temp->next; 


temp->next = NULL; 
/* store the information */ 
I; 


Jie 
temp->typ = 1; 


temp->e 


temp->v 


continue: 


/* couldn't find external input or output */ 


printf(" *ž*** Error Line $d in file $sin”, 
er rm -lıinewnbr, sterm->filename), 

printf(" *** EXTERNAL VARIABLE Not Found Error (%s) :\n", 
v_ name); 

priutf(" %s\n\n. ‚inline); 

serrflag = 1; 


continue; 


/* find the node */ 
Tr 0; 1 s nnede && stremp(e name,nn[i]-»name) !2 0 ; itt); 
/* found the node */ 
if (3 < nnode) 
{ 


/* look for the subnode */ 


for (j =0 ; j < nn[i)->nbr_subnode && 
strcmp (v_name , nn(i]->subnode [))]->name) != O ; 3++)5 


if (j € nn[i]-»5nbr subnode) /* found the subnode */ 
{ 


/* make sure subnode is a voltage subnode */ 
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if (nn[i]->subnode[j]->type == ]) 
{ 

printf (" *** Error Line %d in filè %s\n", 
strm->line_nbr, strm->filename) ; 

22717 *** SUBNODE Not of Voltage Type (%s) :\n", 
v_name); 

print£(" %s\n\n", inline); 

*errflag = 1; 

continue; 


/* allocate and insert structure */ 


for (temp = pv; temp->next Te NULL ; temp = temp->neit); 
temp->next = 

(PRINT VAR *) calloc((unsigned) 1 , sizeof(PRINT VAR)); 
temp = temp->next; 


temp->next = NULL; 
/* store the information */ 


temp->e = i; 
temp->v = j; 
temp->typ = 2; 


continue; 


/* couldn't find subnode*/ 


pruuntt(o *** brror bine td in file *sin", 
strm-^lIine nbr,strm-»filename); 

Print£(" *** SUBNODE Not Found Error (%s) :\n", 
v name); 

Brintf(' %s\n\n",inline); 

fPerrflag = 1; 


continue; 


/* didn’t find the element */ 


Brintf(" *** Error Line $d in file $sin", 
SEEM -line nbr, strm->filename); 

printf(" *** ELEMENT / NODE Not Found Error (%s) :in %s\n\n", 
e name,inline); 

*errflag = 1; 

continue; 
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read external(strml,qq,e,nelm,errflag) 


STREAM PTR **strml; /* pointer to pointer of current stream structure */ 
QUEUE **qq; /* pointer to pointer of current queue structure x / 
ELEMENT **e; /* array of pointers to element structures */ 
int nelm; /* number of elements in element array x / 
int *errflag; /* error flag, if = 1, cannot run simulation WI 


{ 


mE 3, k,flag,noent; 
STREAM PTR *temp strm,*strm; 


char 
char 
char 
char 
char 
doub 


*calloc(); 
inline [MAXCHAR]; 
line [MAXCHAR] ; 

e name [MAXCHAR] ; 
v_name [MAXCHAR] ; 
le value [2)]; 


QUEUE *q temp; 


flag 


zo; 


while(1) 


( 


/* read in next line */ 


strm = *strml; 
etzm->line nbr += 1; /* increment line counter */ 
while (fgets(inline,MAXCHAR, strm->in) == NULL) 


{ 
/* Read to the end of the file, time to pop up one in the include 


stack */ 
fclose (strm->in); 


if (strm->last == NULL) /* read back to the beginning. */ 
{ 
free(strm); 
printrpo" *"*"* Error Line $d in file %s\n", 
serm- >line nbr,stım >filename); 
Peiner *** EOF reached in EXTERNAL INPUT :\n $s\n\n", 
inline); 


*errflag - 1; 
return 1; 
temp strm = strm; 
strm = strm->last; 


free(temp_strm); 


*strml = strm; 


raso 
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strstrip(inline); 
/* see if line is a comment */ 


if (inline(0) 
continue; 


== '!’ || inline[0) == 


ER {| 


/* see if done */ 


if (strncmpa(inline,"END",3) == 0) 


break; 
/* see if include file */ 


else if (strncmpa (inline, "INCLUDE", 7) == 
open include (strml, inline,errflag); 


0) 


/* must be an element variable descripton */ 


/* copy element name */ 


for (i = 0 ; inline[i) != NULL && inline[i) 
inline(i]); 
NULL; 


Errserip(e name); 


e name[i) - 


e name[i] - 


/* strip off tabs and spaces */ 


for (i++; 


I 


inline(i] 22 ' ' a 


inline {i} 
/* copy variable name */ 
for (j = 0; 


i++, j++) 


v name[j] - 


inlinef[i) !2 NULL && inline[i) 
inline[i]; 

NULL; 

strstrip(v_name); 


v_name{[j) = 


/* copy values */ 


Bore = 0 ; anlıne(i) != NULL ; itt, J++) 
line[j] = inline[i); 

line[j) = NULL; 

Stoda (line, value, &ncnt, 2); 

if (nent == 0) /* initialize to zero */ 
value [0] = value[l) = 0.0; 

else if (nent == 1) 
value[1] - 0.0; 
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/* find the element */ 
for (i = 0 ; i < nelm && strcmp(e name,e[i]-»name) !- O ; i++); 


if (i >= nelm) /* didn't find the element */ 
( 
pruintf('  ***-Error Line 9d in file $sin", 
Selma LineonEer,strm >filename); 
print £ (" *** ELEMENT Not Found Error (%s) :\n $sinin", 
e name,inline); 
*errflag = 1; 


continue; 


/* find the external input variable */ 


for () = 0 ; j] <eli)->device->nbr_ext in && 


strcmp (v_name, e[i]->device->ext_in name[j)) != 0 ; j++) 


Bee > eli)->device->nbr ext in) /* didn’t find the external input */ 
{ 
prantf('" *** Error Line %d in file $s\n", 
strm->line nbr,strm->filename) ; 
printf(" *** EXTERNAL INPUT VARIABLE Not Found Error (%s) :\n", 
v name); 
Printf(" %s\n\n",inline); 
*errflag = 1; 


continue; 
/* store in queue */ 
(*qq)-»elm = i; 


dE 
(*qq)->value = value [0); 


(aq) —>var 
(*qg) ->time = value[l]; 

/* allocate new queue structure */ 

q_temp = (QUEUE *) calloc(1,sizeof(QUEUE)); 


q_temp->last = *qq; 
*gq - q temp; 


read reference (strml, simulate,nn,nnode, errflag) 
STREAM PTR **strml; 


ISI 
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SIMULATE *simulate; 
NODE **nn; 
int nnode; 


inte*errflag; 


d 


STREAM PTR *strm, *temp_strm; 

char inline [MAXCHAR], line [MAXCHAR] ,n_name [MAXCHAR], s_name [MAXCHAR]; 
we flag, i, j, nent? 

double val; 


while (1) 
{ 


/* read in next line */ 
strm = *strml; 
Erm line nbr += 1; /* increment line counter */ 


while (fgets (inline,MAXCHAR,strm->in) == NULL) 


{ 
/* Read to the end of the file, time to pop up one in the include 


stack */ 
fclose(strm-»in); 


if (strm->last == NULL) /* read back to the beginning */ 
{ 


free (strm); 
printf(" *** Error Line %d in file %s\n", 
etzm Eeer 
EE xxx EOF reached in REFERENCE :\n %s\n\n",inline); 
*kerrflag = 1; 


return |]: 


temp_strm = strm; 
strm = strm->last; 
free (temp_strm); 


*strml = strm; 


stretrip(inline); 
/* see if line is a comment */ 


if (inline(O] == '!' || inline(0) == ’#’ || inline(0] == NULL) 


continue; 


/* see if done */ 
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if (strncmpa(inline,"END",3) == 0) 


return 0; 


/* see if include file */ 


else if (strncmpa (inline, "INCLUDE",7) == 0) 
Seen inelude(strml,inline,errflag); 


/* must be the reference voltage or current node */ 


/* see if voltage node */ 


strcpy (line, inline); 


if (inline [0] == 'v' || inline(0) == 'V') 


{ 


/* strip off v and colon */ 


for (i50 ; line[i] !s ':' && line([i) !» NULL ; i-t-*) 
line[i) = ' '; 
läne[i] = ' '; 


strstrip (line); 

/* grap the node name */ 

for (i= 0 ; line(i] !5 ':' s& line[i) != NULL; i++) 
n name[i] - line[i]; 

n name[i] - NULL; 


strstrip(n_ name); 


/* grap the subnode name */ 


if (line(i] != NULL) i++; 
while (line(i] == * ' || line[i) == '\t’) i++; 
for (j = 0 ; line[i) != NULL && line(i)] != ' ' && line([(i] != 'At”' 
;P itt, jt4) 
s name[j)] = line[i); 


s name[j) = NULL; 

strstrip(s name); 

/* find the value */ 
Stoda(lineti , &val , &nent, 1); 


if (nent == 0) val = 0; 


/* find the node and subnode */ 


for (i = 0 ; ûi < nnode ; i++) 
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if (strcmp(n name,nn[i]-»name) -- 0) break; 


if (i == nnode) /* didn’t find the node */ 
{ 
printf(" *** Error Line %d in file %s\n", 
strm->line nbr,strm->filename); 


printer. *** NODE not found ERROR:Áin %s\n\n",inline) ; 
*errflag = 1; 


continue; 


For (7 = 07 j € nn[i]-»5nbr subnede ; j++) 
if (stremp(s _name,nn[i]->subnode[j]->name) == 0) break; 


if (j == nn[i)->nbr_subnode) /* didn't find the subnode */ 
{ 
Printt (ws * Error Line sd in file ts\n", 
strm->line nbr,strm->filename) ; 


printf" *** SUBNODE not found ERROR:\n $sinin", inline); 
*errflag = 1; 


continue; 


if (nn[i])->subnode[j]->type != 0) /* Not a voltage subnode */ 
{ 
printf(" *** Error Line %d in file %s\n", 
strm->line nbr,strm->filename) ; 


paint ٤ *** SUBNODE of wrong type:Mn $sMnMn", inline); 
*errflag = 1; 


continue; 


neij-5subnode[j]-»5ref flag = 1; 
nn(i]->subnode(3]->init_volt = val; 


/* see if current node */ 


else if (inline [0] == 'i || inline(0) == *1') 
{ 


strip off i and colon */ 


for (i = O ; line[i] != '!:' && line[i) != NULL ; i++) 
Tinei] =" t. 


€ 


line[i] = * *; 
strstrip(line); 


/* grap the node name */ 


ter (3-97 7 Jime[i] !s-':' && line[i] ! NULL; i++) 
n name[i] - linefi]; 
n name[i] - NULL; 


S 
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strstrip(n name); 


/* grap the subnode name */ 


if (line[i] !2 NULL) i**; 
for (j = 0 ; line[i] != NULL ; i++, j++) 
s name[j] -» line[i]; 


s name[j] = NULL; 
strstrip(s name); 
/* find the node and subnode */ 


for (12 0; i < nnode ; i++) 
if (strcmp(n name,nn[i]-2name) == 0) break; 


if (i == nnode) /* didn’t find the node */ 
{ 
primtp(i" *** Error Line $d in file %s\n", 
strim line nbr,strm->filename); 
prontf(" *** NODE not found ERROR:\n %s\n\n", inline) ; 
*errflag = 1; 


continue; 


for (3 = 0 ; j < nnli]->nbr_subnode ; j++) 
if (strcmp(s_name,nn{i]->subnode[j]->name) == 0) break; 


if (j == nn[i]->nbr_subnode) /* didn’t find the subnode */ 
{ 
prrntf(" ***- Error Line $d in file %s\n", 
strm->line _nbr,strm->filename); 
Printer” *** SUBNODE not found ERROR:\n $sinin", inline); 
*errflag = 1; 


continue; 


if (nn[i]-»5subnode[j]-^type !- 1) /* Not a current subnode */ 
{ 
Printer ("s*** Error Line $d in file ts\n", 
strm->line _nbr, strm->filename); 
printf(” ٭٭٭‎ SUBNODE of wrong type:\n +e\n\n",inline); 
*errflag = 1; 
continue; 


nn[i]->subnode[3]->ref flag = 1; 


else /* its an error */ 


{ 
printf (" *** Error Line td in file %s\n", 
strm->line nbr,strm->filename); 
printf" *** SYNTAX ERROR:Mn ts\n\n",inline); 
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xerrflag = 1; 


set defaults (simulate) 
SIMULATE *simulate; 


{ 


Simulate->dt = .001; 
simulate->tmin = 0.0; 
TOROF 


simulate->time = simulate->tmin; 


simulate->tmax 


simulate->max_iteration = 30; 
simulate->converge = .0000001; 
simulate->delta = .01; 
simulate->delta min = .001; 
simulate-»print dt - 0.05; 
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/* make jacobian.c Wi 
/* Norbert H. Doerry 


15 February 1989 


er 


/* This routine creates the jacobian matrix which gives the partial 
of each implicit variable with respect to the individual variables. 


It is created by patching together the individual jacobian submatrices 


of the different elements. 


The hard part about the construction of this matrix is determining 
which column a variable in the submatrix corresponds to. Here are the 


rules. 


If the variable is attached to a voltage subnode : 


{ 


if the variable is attached to the reference subnode, 


ignore it. (the reference subnode is identically zero) 


else 


find the element in xtab that corresponds to the voltage 
subnode. That element number is the column. 


} 


else the variable is attached to a current subnode 


{ 


if the variable is the first one of a subnode other than 
the reference subnode, 


add the negative of the jacobian element to the 


columns corresponding to the remaining variables 


else 


add the jacobian element to the colum corresponding to the 


element 


ES 

include <stdio.h> 
include <math.h> 
#include "doerry.h" 


/* note : don’t need : itab, 


nitab, n, nnode, simulate */ 


make jacob(jacob, xtab,nxtab,itab, nitab, ee,nelm,n, nnode, simulate) 


double *jacob; 

XTABLE **xtab; 

ITABLE **itab; 

int nxtab,nitab,nelm, nnode; 
ELEMENT **ee; 


SE 
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NODE **n; 
SIMULATE simulate; 


{ 
mai, ),K,eptr, vptr, vtyp, iptr, rows, col; 
ant mult; 


/* zero out the jacobian array */ 
for (i = 0 ; i < nxtab * nitab ; itt) 
gxcob[i1] = 0.0; 
/* step through xtab */ 
r = O ; i < nxtab ; itt) 
{ 


EEUU — 0-5 3 < xtab[x]-»nbr ; j*tt) 
d 


eptr xtab[i)->e(3); 
vptr elle 
mult - xtab[il]-»mult[j]; 


for (k = 0; k < eel[eptr]->con.nbr implicit ; k++) 
{ 
Jacob[ee[eptr]->con.imp_index[k] + nitab * i) += 
ee[eptr]-»con.jacob in [k + ee[eptr]->con.nbr_ implicit * vptr] 


کا 
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/* penner.h */ 
/* Norbert H. Doerry 


14 March 1989 


This is an include file which tells the main program where to get 


the proper information for the devices 
zur Modified 11 April 1989 by nhd **** 
added breaker 3p 

Modified 15 April 1989 by nhd **** 


added synch_ mach, speed reg, volt reg,ind motor,gas turbine, source 
integrator 


Modified 27 April 1989 by nhd **** 
added volt meter 


SE 


Eypedef int (*FUNCTION PTR) (); 
#define NBR DEV FILES 2 /* number of device description files */ 


Erste char *device file[] = /* names of the device description files */ 
{ 
"/mit/13.411/sepsip/three_phase.input", 
"/mit/13.411/sepsip/one_phase.input" 
J; 


static int nbr device file[] - 

( 
12, /* number of devices per file */ 
10 

y; 


static char *device name[) = /* names of devices */ 
( 
Eline 3P", 
"rl wye", 
"gen synch 3p", 
switch 3p", 
rms”, 
reaker 3p", 
"synch mach", 
Speed reg", 
MOLE reg", 
and motor", 


"gas turbine", 
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"volt meter", 


Ercducetor", 
Ecapacitor", 
"resistor", 

۲ ff 
voltage source", 
"current source", 
"diode", 
"switch", 

"pulse switch", 
"source", 


"integrator" 


/* device functions for the above device names */ 


#define FO t_line_3p 
tdefine Fl rl wye 
#define F2 gen_synch_3p 
#define F3 switch 3p 
#define F4 rms 

#define F4a breaker 3p 
#define F4b synch_mach 
#define F4c speed reg 
#define F4d volt reg 
#define F4e ind motor 
#define F4f gas turbine 
fdefine F4g volt meter 


#define F5 inductor 
#define F6 capacitor 
#define F7 resistor 
#define F8 voltage_source 
#define F9 current source 
#define F10 diode 

#define F1l spst switch 
#define F12 pulse switch 
define F13 source 
#define F14 integrator 


Ent FO (); 
IBE Fl (); 
Ente E2 (); 
Mae ES (); 
int F4 (); 
int F4a(); 
int F4b(); 
int F4c(); 
int F4d(); 
int F4e(); 
int F4£(); 
ame Fdgl); 
inte ES (); 
Ent F6 (); 
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Ent F7 (); 
Ent F8 (): 
int F9 (); 
int F10 (); 
Fat 11 7۳۶7 
int Fl2 (); 
Ent F13 (); 
Ent F14 (); 


static FUNCTION PTR dev fnctn(] = /* addresses of device functions */ 
{ 
FO, 
Fl, 
EZ, 
F3, 
F4, 
F4a, 
F4b, 
F4c, 
F4d, 
F4e, 
F4f, 
F4g, 
FS, 
EG; 
E 
F8, 
93 
F10, 
ET, 
E. 
F13, 
F14 
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Eprint network.c */ 
/* Norbert H. Doerry 


18 January 1989 


This file contains the routine needed to display the network connections 
for the program sepsip. 

B/ 

#include <stdio.h> 

#include <math.h> 

#include "doerry.h" 


print network (out,nn,nnode) 
ENDE *out; 
NHSDE **nn; 
int nnode; 
{ 
Me j,k, cnt; 
char c,inline[MAXCHAR]; 


Peramef (out, "\n\n NETWORK SUMMARY\n\n"); 


ent = 0; 
for (i =0 ; i < nnode ; i++) 
{ 
fprintf (out, "\n NODE : %s\n",nn[i)->name); 
Aline counter (£ent,20,6£c,o0ut) == 'q’) return; 


tor () = O ; j < nn[i]-2nbr subnode ; j**) 
( 


if (nn[i)->subnode[j)->type == 0) 
Borintf(out," VOLTAGE "); 
else 
fprintf (out, ‘ CURRENT "); 
£fprintf (out, "SUBNODE : %s\n",nn[i)J->subnode [j)] ->name) ; 
if Mine esunter (Scent ‚20, &0,cut) == 'q') return; 


for (k = 0 ° k < nn [1] ->subnode [3] ->nbr_connect 3 k++) 
{ 
forintf(out," $20s 71 $-sin", 
nn[i]-»5subnode[j]-»element[k], 
nn[i)J->subnode[j)J->variable[k)); 
if (line counter (&cnt,20,&c,0out) == 'q’) return; 


if (out != stdout) continue; 


Erinet(Y Enter <RETURN> to continue ... "); 
gets (inline); 

strstrip(inline); 

if (inline[0) 
if (inline[O0] 


a )ereturn; 
'b') i -= 2; /* go back one node */ 
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/* 
/* 


4 


dn 


Ee -1; 


ame counter */ 


this routine keeps track of the number of lines printed on the screen. 
After 'maxcnt' number of lines are listed, the user is prompted to 


hit a return to continue. ! rtnchar' is the first character of the 


line that the user inputs (That is a non white space ) 


ne counter (cnt, maxcnt, rtnchar, out) 


int *cnt,maxont; 


pner rtnchar; 


BT 
{ 


bee ~eut; 


char inline [MAXCHAR] ; 


Zenmehar = NULL; /* default value */ 
(ent) += 1; /* increment counter */ 
1£ (*ent != maxcnt) 


return 0; 
(*ent) = O; 
Beute == stdout) return 0; /* don’t prompt if not printing to screen */ 
ME” Enter «RETURN» to continue ... "); 
gets(inline); 
Sereerip (inline); 


*rtnchar = inline[0]}; 
recura (Gnt) inline [0]; 
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/ * read device.c * / 


/* Norbert H. Doerry 


6 March 1989 


EJ 
/* This routine reads in all the information for a device from an input 


stream. The following commands are recognized 
NAME name of device 


BENPUTS [nbr) 
input name 1 
input name 


etc 


STATES [nbr] 
state name 1 
state name 2 


etc 


IMPLICIT (nbr] 
implicit variable name 1 
implicit variable name 2 


etc 


EXTERNAL IN [nbr) 


type : extern in name 1 
type : extern in name 2 
etc 


EXTERNAL OUT [nbr] 
Eype : extern out name 1 
type : extern out name 2 


etc 
PARAMETERS [nbr] 
parameter name 1 
parameter name 2 
etc 
END 
This routine returns 
0 successful read of data 
al encountered bad data, but able to recover 
2 reached EOF before END statement 


NOTE: THIS FILE MUST BE LINKED TO 


Bobyba.c 
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7/7 
#include <stdio.h> 
#include "doerry.h" 


int read device (d, in, typ) 

DEVICE *d; 

BILE *in; 

ine typ; 

{ 
char inline [MAXCHAR] ; 
char command [MAXCHAR] ; 
char lines[4) [MAXCHAR]; 
m Ens, DE, name flag,nent; 
۶۱۰٢۶16 6 7 
ہل‎ i; 


puars*calloc(),*malloc(í(); 


ans = 0; 


mame flag = 0; 
/* initialize the d array */ 


d->type = typ; 
کک‎ abr inputs 0 
Se mbt states = 0 
E nbr implicit - 0 
BLonbr ext in = 0; 
ELUnbt ext out = 0 
d-»nbr param = 0 


while (1) 
{ 
if (fgets (inline, MAXCHAR, in) == NULL) 
return 2; 


parse(inline, (char *) lines, (int) MAXCHAR, (int) 4, &cnt); 
if (ent == 0) continue;  /* skip blank lines */ 
if (lines[0) [0] 


if (lines[0) [0] 
if (lines [0) [0] 


'\n’) continue; /* skip lines beginning with CR */ 


MI e on tana is skip lines beginning with I’ */ 


MM) continue; /* skip lines beginning with */ 


ie zient > 178& strnempa(lines[0],"NAME",3) == 0) 
{ 
if (name flag == 1) free (d->name); 
name flag - 1; 


strsplit (inline, command, 1, strlen (inline))?; 

strstrip (command); 

d->name = (char *) malloc( (unsigned) strlen (command) + 1); 
strcpy (d->name, command); 
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else if (cnt > 1 && strncmpa(lines[(0],"INPUTS",3) == 0) 


{ 
Stofa(lLines [1], fleta, enent, 1); 
if ((int) flota[0) > O && nent == 1) 
( 


/* see if inputs already allocated */ 
3۶۰ )93-- ط1‎ ۶75000 7 O) 
d 
TA OSE! inputs ; i++) 
free( (char t) d->inpuüut name[1])> 
EE name); 
/* update number of inputs */ 
d=enbräinputs = (ant) £flota[l0]; 


/* allocate the pointer array */ 


d 771570 name = (Char *) calloc( (unsigned) d=>nbr inputs, 
sizeof(char *)); 


/* read in the input names */ 
Bors(1. O 0135s d-»nbr inputs ; itt) 
{ 
if (fgets (command, MAXCHAR, in) == NULL) 


return 2; 


strstrip(command); 


ir 2 zommana (0) == u IT command [0] == FF" |) 
command [0] == NULL) 
d 
EE 
continue; 
) 
d->inpüt name[i] = (char (٭‎ 


calloc( (unsigned) strlen(command) + 1, 
sizeof (char)); 
strcpy(d-»input name[i],command); 


else if (cnt > 16s strncmpa(lines{0],"STATES",3) == 0) 


{ 
Stofadtiines (1!) flota, ¿nent, 1); 
TT (TRE lota (Ol) > O ££ nont == 1) 
{ 
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/* see if states already allocated */ 


ır Gd nbr states 00) 
{ 
ST (1 = OS i < d->nbr states ; i++) 
free (chet ۴ت‎ ٣6 7۶ 
free( (char *) d->state_name); 


/* update number of states */ 


d->nbr_states = (iat at loca (Oi): 


/* allocate the pointer array */ 


do state name = (char t) calloc( (unsigned) d->nbr states, 


sizeof (char *)); 
/* read in the state names */ 


Cd NEBI states ; i++) 
{ 
if (fgets (command, MAXCHAR, in) == NULL) 
return 2: 


strstrip (command); 


if (command [0] == '!’ || command[0] == '#’ || 
command [0] == NULL) 
{ 
D 
continue; 
) 
desxstatecname[r1] = cailoc( (unsigned) strlen(command) + 1, 


sizeof(char)); 
Etrepy(d state name[i]. command); 


else if (ent > 1 && strnempa(lines[0],"IMPLICIT",3) == 0) 
{ 
pierce (lines [ll], flota, tnent.,, 1); 
Pie Cine) of lota (OG) > 0 && nent == 1) 
{ 


/* see if implicit already allocated */ 
Tf do nbreimplicito 0) 


d 
2ح7٠‎ c cdssnbreimplicit ; i++) 
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free( (char *) 8 76 ۶۶ ۶ 
free( (char *) ds imp Merc mame); 
/* update number of implicit */ 
do mos implicit rleta[0); 
/* allocate the pointer array */ 


d=>implicit name = 


(char **) callee( (unsigned) d->nbr implicit,sizeof(char *)); 
/* read in the implicit names */ 


Bor Meere naznbzäymplie:sty, +t) 
{ 
if (fgets (command, MAXCHAR, in) == NULL) 
Bet ven 27 


strstrip (command); 


‘ft’ |] command(0] == '4' || 
NULL) 


if (command([0] 


command [0] 


DX. 


continue; 


d=implsert name {| 1) — 
ealloe( (unsigned) strlen(command) + 1,sizeof(char) ); 


strepy (d->implicit name [i], command) ; 


else if (cnt > 2 && strncmpa(lines[0], "EXTERNAL",3) == 0 
&& Stracmpa(lanes(1), 'INPUT”,3) == 0) 


SEota (lines (2), flota,énent,1)- 
me Gling) £lota(O)] > O-e&e nent == 1) 
{ 


/* see if ext_in already allocated */ 


it 2(daz2nbr’est in > 0) 
{ 
EE AO e inn < dznbresestzin : i++) 
free (char i) d >ertinzname(3]); 
Teel MCAT ) dG ezl in name) ; 


creel EE ext in); 
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/ Update nunbel oI ext in */ 


de opr erein Mint) flota[0)]; 


/* allocate the pointer array */ 


986 61103 nane 


(char ?r)zealleei (unsigned) d=>nbr ext in, 


sizeof(char *)); 


8 96 IM = EE EE EE EES, 


sizeof(int) )3 


/* read in the ext in names */ 


E cade ubroextoin  1++) 


{ 


if (fgets (command, MAXCHAR, in) == NULL) 


return 2; 
/* get first non space */ 


strstrrpécommand)- 


mra commandib)ls-c || command(0) == 4” || 
command [0] == NULL) 
{ 
2127 
continue; 
} 
۶۰۹ر‎ 6.6 */ 
if (strncmpa (command, "BOOLEAN",3) == 0) 


d=>type ext in[i] = BOOLEAN; 


else if (strncmpa (command, "SWITCH",3) == 0) 
d- -type ext in{i] = SWITCH? 


else if (strncmpa (command, "INTEGER",3) == 0) 
dS>type ext in[i] = INTEGER; 


else if (strncmpa (command, "FLOAT",3) == 0) 
d=7eype ext in[il = FLOAT; 


else 
{ /* error reading type */ 
ans = 1l; 
de type estra] = FLOAT; 


/* get name */ 


strsplit (command, command, 1, MAXCHAR) ; 


m Oe 
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strstrip(commana) ; 


d=>ext in name(i] = calloc( (unsigned) strlen(command) + 1, 
sizeof (char) ); 


strcpy(d->ext in name [i], command)? 


} 
else if (cnt > 2 && strncmpa(lines[0}, "EXTERNAL",3) == 0 
&& strncmpa (lines [1], "OUTPUT", 3) == 0) 


Stofa(lines[2],flota,&ncnt,1); 
me (aint) o f£lotal0J > 0 && nent == 1) 
{ 


/* see if ext out already allocated */ 


aet talon ext out > 0) 
{ 
fer (x ء۶٦‎ de nbr extTout 7 itt) 
Ence Menear al >ertr eut’name[i)); 
free( (char *) d-»ext out name); 


free( (char *) dectvpeseastioutyr 
/* update number of ext out */ 
dzenbrreztreut = ARE EOE ON, 
/* allocate the pointer array */ 
d-»ext out name = 
(char **) calloc( (unsigned) d->nbr_ext_out,sizeof (char my 
do otype ext out = 
(int *) calloc( (unsigned) d->nbr_ext_out,sizeof (int) ez 
/* read in the ext out names */ 
for (i SOSA CO SBE et ol ; i++) 
{ 
if (£fgets (command, MAXCHAR, in) == NULL) 
return 2; 


get fiestinon space */ 


strstrip(command); 


if (command[0] m MEEcommiamdig] s 4٦ 


NULL) 


command [0] 


- 371 - 





read device.c 


continue: 


/* det type */ 


if (strncmpa (command, "BOOLEAN",3) == 0) 
d->type ext out [i] = BOOLEAN? 


else if (strncmpa (command, "SWITCH", 3) == 0) 
d->type_ext_out[i] = SWITCH; 


else if (strncmpa (command, "INTEGER",3) == 0) 
d->type_ext_out[i] = INTEGER; 


else if (strncmpa (command, "FLOAT",3) == 0) 
d-»type ext out[1] - FLOAT; 


else 
U werrorc reading type */ 
ans = ]; 
d->type ext out[i] = FLOAT; 


/* get name */ 


strsplit (command, command, 1, MAXCHAR) ; 


strstrip (command) ; 


3-2 0 ج‎ 
calloc( (unsigned) strlen(command) + 1,sizeof(char)); 


strcpy(d-»ezxt out name[i],command); 


else if (cnt > 1 ££ strncmpa(lines[0],"PARAMETERS",3) == 0) 
{ 
Stofa(lines[1],flota,&ncnt,1): 
if ((int) flota[0] » O && ncnt == 1) 
{ 


/* see if param already allocated */ 


ifd nbr param >70) 
{ 
ror ٣٣۰۰۰٠ ced-onbroparam ; itt) 
۶۶6-٣۰٣٦00-2۰۰ (۰۹6 37671 ۷٤.۶ 


free( (char *) d->param_name); 


/* update number of param */ 
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da mbr param = (int) flota[0]; 
/* allocate the pointer array */ 


ds>param name = (char **) calloc( (unsigned) d-»nbr param, 


sizeof(char *)); 
/* read in the param names */ 


ol dG UOC I Sd Br param / itt) 
{ 
if (fgets (command, MAXCHAR,in) == NULL) 
return 2; 


strstrip (command) ; 


if (command[0] == '!' || command[0) == ’¥# || 
command[0) == NULL) 
( 
ise 
continue; 
} 
d -param name[ı) -callcet (unsigned) strlen(command) + 1, 


sizeof(char)); 


strcpy(d->param name[i)] command); 


else if (cnt » O && strncmpa(lines[0],"END",3) == 0) 
( 


if (name flag == 0) ans - 1; 


return ans; 


else 
mus 1: /* Encountered bad data */ 
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/* read element ..c * / 
/* Norbert H. Doerry 


momectober 1988 


This file contains a function for reading an element description 


from a file. 
The form of the device description is: 


DEVICE ELEMENT 
PARAMETER NAME PARAMETER 
m | | 
XIRA YE 


a N 
END 


where 
DEVICE is the name of the device type (i.e. resistor) 
ELEMENT is the specific element name (i.e. Rl) 
PARAMETER NAME is the name of the DEVICE PARAMETER (i.e. R) 
PARAMETER is the value of the Parameter (i.e. 100 ) 
This routine returns: 
successful read of data 
l encountered bad data, but able to recover 
encountered EOF before END Statement 
-1 incomplete definition of parameters, defaulted to zero 
-2 unable to find device type 
NOTE: This file must be linked to 
molaiba.c 


Ey 


famelude <stdio.h> 
#include "doerry.h" 


int read element (e, strm, serial, dev, ndev) 


ELEMENT *e; /* element structure to hold data */ 
STREAM PTR *strm; /* pointer to stream structure z 
int serial; /* serial number of element 7 
DEVICE **dev; /* array of device descriptions */ 
int ndev: /* number of device descriptions */ 
{ 

ENDE *in; /* imput stream to read data from */ 


char inline [MAXCHAR], line [MAXCHAR]; 


SS NAS 





read element.c 


Goer, ),k,nent, flag,dp,ans; 
51۳636 6 ٣۶ 


char 
int 


char 


Br = 


*calloc(), *malloc(); 
*param flag; 
command [MAXCHAR] ; 


strm->in; /* set input stream */ 


while (flag == 0) 


{ 


Elrm--line nbr += 1; /* increment line counter */ 


if (fgets(inline, MAXCHAR, in) == NULL) 


return 2; 
/* strip inline of leading and trailing blanks */ 
Sbrstrip(inline); 
If comment or blank line, read in another line  */ 


mwunlxne[O] == NULL || inline[O] == '!' || inline[0] == '}) 


continue; 
/* strip off the device name */ 
strextract (inline, line, 1,MAXCHAR) : 
/* find which device we are talking about */ 
for (dp = O ; dp < ndev 44 strcmp (dev [dp] ->name, line) OA 
/* see if did not find device */ 
if (dp == ndev) 
{ 
a xeodydn CE Tind device, Set the element name to the 
inpuesirnestor further decoding in parent routine */ 
e->name = (char *) calloc((unsigned) strlen(inline) + 1, 
sizeof(char)); 
strcpy (e->name, inline); 
zZeLrurn. 2; 


/* done with loop */ 


flag = 1; 


pus 5 
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/* get name of element */ 
strextract (inline, line, 2, MAXCHAR) ; 
/* save element name */ 


ee fame = (char *) calloc((unsigned) strlen(line) + 1,sizeof(char)); 
strcpy(e->name, line); 


/* set Device pointer */ 
e->device = dev[dp]; 

/* set the serial number */ 
e->serial = serial; 


/* set connection type pointer */ 


I 


EL cen.type ext in dev[dp]= type extin; 


E conetype ext out dev IGE type ext out; 


/* set number of elements and allocate arrays */ 


1 


es>con.nbr inputs dev[dp]->nbr_ inputs; 


Ezccon.nbr states = dev[dp]-»2nbr states; 
e-»con.nbr implicit - dev[dp]-»nbr implicit; 
e-»con.nbr ext in — dev[dp]-»nbr ext in; 
EN cen.nbr ext out = dev[dp]->nbr ext out; 
e-»con.nbr param - dev[dp]-»nbr param; 


mtdev[dp]-»2nbr inputs > 0) 
{ 
Er eon.ın <= (double *) calloc((unsigned) dev[dp]-»nbr inputs ; 


sizeof (double)); 


e=>con.init in = (double *) calloc((unsigned) dev[dp]->nbr_inputs ; 
sizeof (double)); 


ErS(dev[dp)-^nbr implicit » 0) 
e-»con.jacob in — (double *) calloc((unsigned) dev[dp]-»nbr inputs * 
dev(dp)->nbr implicit , 
sizeof (double)); 


ust tdewidpls»nbr states > 0) 
{ 


e->con.state (deupleziyzealleeitünsigned) devidp]-Snbr states, 
sizeof(double)); 

Se CoN GIA Stale (double *)-ecalloe((unsigned) dev[dpl-»nbr states, 
sizeof(double)); 

e Gon IRIE state sS GUI EE dev[dp]-^nbr states, 


sizeof (double)); 
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) 
des [dp] =>nbr_implicit > 0) 
{ 
See eon. mplte1t = (double ~~) calloc((unsigned) dev[dp]-»nbr implicit, 
sizeof (double)); 
e->con.imp index zu IDE *) calloc((unsigned) dev[(dp] -nbr implicit, 
sizeof(int)); 
} 
if (dev[do}->nbr ext _in >20) 
{ 


e->con.ext in 


doubli- Mea lloc (unsigned) devldp]=>nbr ext in, 
sizeof (double) ); 

(double *) calloc( (unsigned) dev[dp]-=>nbr_ext_in, 
sizeof (double)); 


Seco. init ext in 


EN dev[dp]-»2nbr ext out > 0) 
{ 
EL consext out = (double *) calloc( (unsigned) dev(dpj->nbr_ext out, 
sizeof (double) ); 


mudev[dp]-»2nbr param > 0) 
e-»con.param > (doublet) calloc((unsigned) dev[dp]->nbr param, 
sizeof (double)); 


/* read in parameters */ 


/* allocate parameter flag array (used to ensure all the parameters 


are specified) */ 


if (dev[dp] ->nbr_param > 0O) 
param flag = (int *) calloc((unsigned) dev[dp]->nbr _param, sizeof (int)); 


/* ensure param flag is initialized to zero along with parameters */ 


IO 1 < dev[dp]=>nbr param ; i++ } 


e-»con.param[i] - param flag[i] -» 0; 
flag = 0; 
while (flag -- O) 


( 
Sitrm-olrzne- nbr += 1; 


if (fgets (inline, MAXCHAR,in) == NULL) 


۳66۴1 0 Z2; 
/* strip inline of leading and trailing blanks */ 
Strstrip(uniline); 


/* if comment or blank line, read in another line  */ 


- 377 - 





read element, o 


if (inline[0] == NULL || inline[{0) == '!’ || inline[{0) == ’ #’) 
continue; 


"` Stop if end statement */ 


slctouc (inline, command); 
strstrip (command); 
if (strcmp(command, "END") == 0) /* NOTE : case insensitive */ 


( 
flag = 1; 
continue; 
/* check param name(] to find out which parameter should be read in */ 
P Ut P 


strextract(inline,command,1,MAXCHAR); 


tor (1 = O ; i < dev[dp]->nbr_param && 


strcmp (command, dev [dp] ->param name [i] ) l= O ; itt); 
/* if did not find parameter, set ans = 1 (invalid data read in) */ 
if (i == dev[dp]->nbr_param) 
{ 
ans = ]; 
continue; 


/* get parameter value */ 


strextract (inline, command, 2,MAXCHAR) ; 


Etofa(command , flota , &ncnt , 1); 
if (nent z- 1) 
{ 
e-ocon.param[i] = flota[0]: 


param flag[i] - 1; 
) 


else 


ans = l. /* invalid data read in */ 


/* check all the parameter flags */ 
ez (1 = O 7 i < dev[dp]->nbr param ; i++) 
if (param flag{i] == 0) 
{ 


/* found a parameter that wasn't initialized */ 


ans = =1l; 2/* supplied default value */ 
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urn ans; 


۱ 2:53 


TS 


Up 
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SS 
/* 


read network.c */ 


Norbert H. Doerry 
6 December 1988 


This file contains the code for reading the network connections 
between the various elements. The form for the netork description 


is 


NODE NODE NAME 
[r]t[n]:SUB NAME - [val] = ELM1:NAME = ELM2:NAME = ELM3:NAME etc. 
|| Hl 
np Ser 
NZ 2 


NODE_NAME is the name of the node 


ES is an optional character 'r' to make the subnode a reference 
subnode. 
t is either a 'v' for voltage law node or an 'i' for a current law node 
[n] is the number of variables to be equated beginning with the specified 
one. (usually 3 for three phase) If omitted, assumed equal to 1. 
ENBENZAME is the name of the subnode 


[val] For a voltage subnode, the program tries to convert the first 
entry into a number. If successful, the value becomes the initial 
value if not a reference node, and the actual value if the node 


1s a reference node. 


ELM1 is the first element name being connected 


NAME is the name of the variable being connected 


سب emm emm emm‏ جو سو ہہ 


Element names can not begin with a numeral or a punctuation sign. Elements 


should not have colons or equal signs in their name. 


meee Modified 17 April 1989 ***** 


Ete the nbr c bug. mahd 


éi 


#include <stdio.h> 
#include <math.h> 
mimelude '"doerry.h" 


#define DEBUG O 


read _ network (strm, node, e,nelm, errflag) 
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EDRBAM PTR *strm; 
NODE *node; 
ELEMENT **e; 
int nelm; 
int *errflag; "n scetaccocone uf detect la fatal error */ 
{ 
char inline (MAXCHAR], line [MAXCHAR], *sline; 
HICE *in; 
mae, ans, flag; 
ener “calloc(); 
SUBNODE **s node, *e node; 
NODE *new_node; 


in = strm->in; 
m nitialize s node */ 
s node = (SUBNODE **) calloc(1,sizeof(SUBNODE *)); 
*s node = (SUBNODE *) calloc(1, sizeof (SUBNODE)); 
(se node) ->nbr_ connect = 0; 
EN ds)--last = NÚLL;  /* indicator that this is the first one */ 
Met first line */ 
ans = 0; /* flag for all loaded normally */ 
while (1) 
( 


Seno line nbr eis: 


if (fgets(inline, MAXCHAR, in) == NULL) 
return 2: 


strip inline Sf leading and trailing blanks, etc */ 
Ebrstrip(inline); 
/* if comment or blank line, read in next line */ 


if (inline[0O) == NULL || inline(0) == '!” || inline[0) == '#') 
continue; 


/* see if node */ 
1: (strnempa(inline, "NODE",3) != 0) 


{ 


/* if not, pass the offending line back to the main routine */ 


node->name = calloc(strlen(inline) + 1 , sizeof(char)); 
strcpy (node->name, inline); 
return -1; /* not a NODE command */ 


SE 





read network.c 


/* Have a node, lets get its name */ 

strsplit (inline, line, 1, MAXCHAR); 

Ssterstrip(line); 

Ee l1 052 Jine[i]) !2 " * && line[i}] != 'Nt' && line[1) !s 
line[i) = NULL; 

node->name = calloc(strlen(line) + 1, sizeof(char)); 


strcpy (node->name, line); 


break; 


/* get the node information */ 
while (1) 
( 


em >lıne nbr += 1; 


if (fgets multiple (&sline,MAXCHAR,in) == NULL) 


Return 2; 
strip sline of leading and trailing blanks, etc */ 
eerstrip(sline); 
RAE comment or blank line, read in next line */ 


if (sline([0] == NULL || sline [0] == *!* || sline[0) == '}’') 


continue; 
/* see if end statement */ 


if (strcmpa(sline, "END") == 0) 
break; 


7* read the sub nodes in */ 


NULL 7; IFT), 


if (flag = read Sub nodeilstrm,sline, = node,e,nelm,l,errflag) !- 0) 
{ 
ans = l; 
*errflag — 1; 
if (flag == -3 || flag == -4) return flag; /* out of memory error */ 


continue; 


/* free sline */ 


free(sline); 
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/* count the number of subnodes */ 


e mode = *s node; 
For (i = 0 ; e node->last != NULL ; i++ , e node = e node->last); 
node->nbr_subnode = 1; 


/* allocate array */ 
node->subnode = (SUBNODE **) calloc( i ,sizeof (SUBNODE *)); 


1f (node->subnode == NULL) 


mecurn =3; 
foe) the array */ 


FS i > 0O ; i--) 
{ 
ge le=>zubnode[i-1] = (*s_node)->last; 
Wee Ee node)=>last; 
} 

return ans; 
) 
۶6 ط0>‎ node (strm,inlines,s node,e,nelm, pe, errflag) 
Ehsro*inlines; 
ENSESAM PTR *strm; 
EUBNODE **s node; 
ELEMENT **e; 
int nelm; 
Uc *errflag; /* if equal to one, indicates fatal error */ 
int pe; riot erroi flag : 1l yes 0 8 
d 

char *inline; 

EutEnbr snode,i,j,k,l,kk,nbr c,nent; 

Epromake str(); 

char line(MAXCHAR],name[MAXCHAR]; 

moat flota[2]; 

BUBNODE *t node; /* tempory sub node */ 


emer =make str(); 


double val; 
72۰۰06 = make str(inlines); /* copy inlines into inline */ 
mbr ¢ = count char(inline,’='); /* count equal signs */ 
DEBUG) printf ("és || nbr c = *d\n",inlines,nbr_c); 
mbr e < 1) /* didn't get an equal sign */ 
{ 
if (pe) 


{ 
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punte c Error Line $d in file sin”, 
strm->line_nbr, strm->filename); 


TS not found in node deseription ***\n %s\n",‏ 3 ئ۲ 
inlines);‏ 
} 
*errflag = 1;‏ 
return 1;‏ 


weunede)->nbr connect = nbr c; 

/* find type of subnode and number of subnodes */ 
serstrip(inline); 

/* see if the subnode is a reference subnode */ 


if (inline[0] == ‘’r’ |] inline[0] == 'R') 
( 
Imline[0]) = * '; 
a suuode)--^ref flag = 1; 
strstrip(inline); 
} 
else 
wennede)->ref flag = 0; 


/* find out if a voltage or current subnode */ 


af (inline[0] == 'v” || inline[0]) zs» 'V"'") 
( 
inline[0] = ' '; /* set to space */ 
w= node) —>type - 
} 
else if (inline [0] 
{ 


inline{0] = ’ ? 


7 سے 7 7316007 27۱۱6 ' 


/* set to space */ 


^. 


I sUunode)-^type qn 
) 
else 
{ 
if (pe) 
{ 
Punt (IX Error Line td in file %s\n", 


strm lane nbr, strm- >filename); 


in mode description ***Xn");‏ 057195۴۰۳۳۰۶ ۶۰۰5 ےرت ۳۰۰۰۰۰۰57۳ 230 >ک 
۲160116672" بی 5> Princi?‏ 
} 
*errflag = 1;‏ 
return 1;‏ 


/* find number of subnodes */ 
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Stofa (inline, flota, éncnt, 1); 


nbr_snode = (nent == 0) ? 1 : flota[0); 


/* allocate arrays */ 


E ode) ->name = 


I 


aruuode)-»element 
(*s_node) ->variable 


efmede)=>elm ptr 


N 


ا 


H 


eege te at ptr 


bE ((*s node) ->element 
ES node) -selm ptr 

(*s node)->name 
if (pe) 

( 


(char  *) 
(char =) 
(char ~*~) 
(int *) 


(int *) 


== NULL 
== NULL 


7 
|| 
== NULL) 


calloc (MAXCHAR, sizeof 


callscinbr’e,sizeof 
callóc(nbr c, sizeof 
calloc(nbr_c,sizeof 
calloc(nbr_c,sizeof 


EElREL( it Error Line zd in file $sin", 


strm-cilneonbr strm-»filename); 
printf" *** Out of MEMORY\n"); 


} 
serrflag = 1; 


return =3; 


Eget rid of number */ 


FOR (1 = O ; inline[(i) 


px)rne[i] = ' '; 


IS NULL ££ inline[1] 1= *:” 


/* ensure got to a colon */ 


m umnline[i] !9 ':') 
{ 
if (pe) 
{ 


Weimer ۲6۶٢376 %d in file %s\n", 


SEEM >line 55۶ 655200-2۶ 116859016( 7 


Printr(” EEN 


Prin i(i sio", inlines)? 


} 
*errflag = 1; 


return i: 


3۲۶173576 ]32[ = ' '> 


strstrip(inline); /* remove leading blanks */ 


/* read in name of subnode */ 


=o) = 


(*s_node)->var ptr 


(char)); 


(chat. 3) 7 
(char *)); 


(*s node)->variable == 


i++) 


in node description ***\n") > 


I): 
LEE 


NULL 
NULL 


|] 
| | 
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momma = 0 ; inline[i] != NULL && inline[{i) != '=" ; 1++) 
{ 
fone [i] = inline[i]; 
enline[i] = ' '; 
} 
line[i] » NULL; 
E niline[i] -— 'z') inline(i] 5» ' '; 


Stretrip(line) ; 


/* ignore everything after first space or tab and before = */ 
for (i = 0 ; line[i] !=' ' && line[i) != '\t’ && line(i) t= NULL ; i++) 
esanede) ->name[i]) = line[i]; 


(*s_node) ->name [i] = NULL; 
Serstrip(inline); 
/* start reading in the elements */ 


E —0, A ee OF i < nbr c 7 i++ , jtt) 
{ 


/* get the element name */ 


mene(k = 0 ; inline[3] !5 's' && inline[j]) != NULL ££ inline(3) != ':'; 
j++, k++) 
{ 
line[k] = inline[j]; 


} 
line(k] = NULL; 


eerstrip(line); 
کت‎ see if it is possibly an ititial value */ 
if (i == 0 ££ (*s node)->type == 0) 


{ 
Stoda (line, &val,&ncent, 1); 


if (nent == 1) /* successful conversion */ 
{ 
(*s node)-»init volt - val; 
Pl. 


nbr c--; /* decrement number of connections by one */ 
C sinode) nbr connect = nbr ری‎ /* do it for real */ 


continue; 


/* allocate the string */ 


Cee e ement iE (char *) calloc(strlen(line) + 1,sizeof(char)); 


EE 
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Ders euneode)=>elementifi], line); 
/* get the variable name */ 


mre(inline[j3) !2 's:') 
{ 
*errflag = 1; 
if (pe) 
{ 


print TI hrror bine td in file $sin", 


strm->line nbr,strm->filename) ; 


prince (" *** Missing variable name for element %s ***\n Zenit, 
(*s node)-»element[(ij],inlines); 


) 
wemmede)=>varıeble [1] = NULL; 


continue: 


Jtt; /* increment pointer to character in inline past colon */ 


/* copy next element/variable into line */ 


EF =O, inline[3] !5 's' £& inline[j] != NULL; 3++,k++) 
{ 
ue [E = inline[)j); 
} 
line[k] = NULL; 


strstrip (line); 

m allocate the string */ 

Sieenede) ~-variable|i] = (char *) calloc(strlen(line) + 1,sizeof(char)); 
/* see if out of memory */ 


E CES node) ->variable[j] == NULL) 
{ 
emrtlay =], 
if (pe) 
{ 


CEINEE( ** Error Line Ad in file &s\n", 
SEEM ljnesnbr, stUrm->filename); 


Out of MEMORY ***\n");‏ *** "۶۲ط 
) 


return - 7 


copy the string */ 


strcepy((*s node)->variableli], line); 
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/* find the elements in the arrays and pass pointers etc. */ 


/* find out which element we belong to */ 


for (12 0; 1 <nelm && SE ECEME (el l| name, (%5 node) s>element (1]}) t= 0 >; 
1++) 
if (DEBUG) printf("%s || %s\n",e[l]->name, (*s_node)->element [i]); 


/* see if the element name wasn't found */ 


if (1 == nelm) 
{ 
*errflag = 1; 
if (pe) 
{ 
BEIREE(. *** Error bine $d in file عق‎ 
sermo lime mbr, stem->t1lename)” 
printf" tnk Can not recognize ELEMENT %s ***\n", 
CS Se element (11); 
} 


continue; 
/* assign pointer */ 
Mis node) ->elm ptrlli] = 1; 
/* turn flag on for element */ 


a l ]->flag = 1; 


/* find the variable name */ 


/* look for input variables */ 


eE S= 007 1 < neim && k « e[!]-»5device-»nbr inputs && 


eeren 5S NOQde) > variable] e (1)5>device=>input name[k]) != 0; 
k++) 
Mem(DEEUG)eprintt("*** 45 |} sin", (*s node)->variable(i], 


efi o devices > input mame KI): 
BI! sinelm && k < e[(l1]->device-=>nbr inputs) 
{ 


(Zeenode)->vyar ptr[ı) = k; 
continue; 


if (pe) 
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ELMO Nte Error Line td in file %s\n", 


strm->line nbr,strm->filename) ; 
print£f(" TAX avrabbesc*s not recognized for element %s ***in", 


(he node)-»variable(i],(*s node)-»element[i]); 


*errflag = 1; 
wernode)->var ptr[i) = 0; 


/* equate follow on variables with new sub_nodes */ 
strcpy (name, (*s node)-»name); 


EET -— 1; i4 nbr snode ; it-*) 


{ 


/* allocate new arrays */ 


tonode = (SUBNODE *) calloc(1,sizeof(SUBNODE) ); 


mE node == NULL) return -3; 
BEEnode-»2last — *s node; 
t node-»nbr connect - (^s node)-»nbr connect; 


/* allocate arrays */ 
node name = (char *) calloc(MAXCHAR, sizeof(char)); 
ce eM ptr = {ant —"*) calloc(t noede-»nbr connect, 


sizeof (int)): 


(int zer) calloe(t mode->nbxr connect, 


I 


Genode->var ptr 
sizeof(int)); 

Bun de element = (char **) calloc(t node=>nbr connect, 
sizeof(char *)); 

t_node->variable= (ehar e eale te node > nbr connect, 


sizeof(char *)); 


/* see if out of memory problems */ 


E Mode elm ptr == NULL || t node--var ptr -- NULL || 
t node->element == NULL || 
tinode-=>variable == NULL || CE HOAs. name zz NULL) return -3; 


/* set reference flag to zero */ 
EEnode-»ret flag = 0; 


pawcepy data */ 
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Pinode=>type = (Zeanodejy->type; 


strcpy(line,name); 


1 


/* append an underscore followed by a 'b' or 'c” etc to the subnode 


name */ 
Sprintf(t node->name, "%s_%c",line,’a’ + i); 


Gor (1 = 0 ¢; 1 < Ë nede >nbr connect ; 1++) 
( 

E node selement [lL] 

6-7701 


makemsten((*s mode) =-element(1)); 


(s node) >elm ptr[l]:; 
ENuodescvargEptriHMesc(ssenode)e»varoptr[Ll] + 1; 
/* see if too many points */ 
Ift node=>var ptr[l] >= 
e[t_node->elm ptr[l]]->device->nbr_inputs) 
return 4: 


/* copy the variable name */ 


k = t_node->var_ptr[l]; 
kk = t_node->elm ptr(1]; 


t_node->variable[l] = make str((e[kk])->device->input name[(k])); 
) 
/* update s node */ 


*s node = t node; 


/* allocate new arrays */ 


t node = (SUBNODE *) calloc(1,sizeof (SUBNODE) ); 


If node == NULL) return -3; 
bEnode-»last = 5s node; 
*s node چ‎ ۰۰٠ 


tree inline */ 


free (inline); 


Return 0: 
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Pewcount char returns the number of times a character occurs ina string */ 
count char(s,c) 
echar *s,c; 


{ 


٦3 ۶7, 
Bor S= 3-20; s[3] !5 NULL ; i++) 
if (s[i] == c) j++; 


return 3; 


mare str allocates a string array and copies the argument passed to it */ 
char *make str(s) 
ehar *s; 
{ 
Enur *calloc(); 


char *ans; 

ans = calloc(strlen(s) * 1, sizeof(char)); 

if (ans == NULL) return NULL; /* out of memory error */ 
Sie~epy (ans, S) ; 


return ans; 


typedef struct String 
{ 

ehar *s; 

eermet String *next; 


} 
STRING ; 


fgets multiple(outline,max, in) 
Enar **outline; 
Ent max; 
PEE *in; 
{ 
Chal *out; 
SIRING strt, *ptr; 
char “inline; 


ane flag, len; 


Ero &strt; 
Per=->next = NULL; 


inline = calloc((unsigned) max + 1 , sizeof (char)); 
flag = 1; 
while (flag) 


{ 


oo = 
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/* if read to EOF, send back EOF */ 
if (fgets (inline, max, in) == NULL) 
{ 


free (inline) ; 
return NULL: 


errstripl(inline); 
/* see if its a comment */ 


if (inline[0) == '!” || inline[0) == '#’ || inline[O ] == NULL) 


continue; 


/* see if a continuation marker is present */ 


flag = 0; 
Nroaniine[strlen(inline) = 1] == 'NwWX') 
{ 
inline [strlen (inline) - 1) = NULL; 
flag = 1; 
} 
m strcemp(inline + strlen(inline) - 3 , "...") == 0) 


{ 
inline[strlen(inline) - 3] = NULL; 
flag = I; 


/* store the string and allocate a new array */ 
PL 5 > make SEI (inline)? 
meee neat = (STRING *) calloc((unsigned) 1 , sizeof (STRING )); 


ger = ptr->next; 
ptr->next = NULL; 


Ir ptr = £strt,len ےت‎ 1 ; ptr->next != NULL ; ptr = ptr->next) 
ten strlen(ptr-»s) + 1; 


Eeutlrne - (char *) calloc((unsigned)len, sizeof (char)); 
Centrine) [0] = NULL; 
تک‎ E pEr = &strt ; ptr->next != NULL ; ptr = ptr->next) 

{ 


streat (*outline," "); 


etrceat (cut line, ptr=->s); 


ہے = 








network.c 


(inline); 
rn (*outline) [0)]? 


O 
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Bepsip.c 


Beer LE, e */ 
/* 11 November 1988 


fo version 1.0 27 March 1989 *xxx* 
Norbert H. Doerry 


Shiboard Electrical Plant SImulation Program 


m modified 9 April 1989 **** 
Fixed bug that caused utility line of menu to be printed twice 
mere modified 10 April 1989 **** 


Added ability to enter stdout as a filename for writing files 


2۰۰ the get filename function 


7 


#include <stdio.h> 

#include "doerry.h" 

tinclude "penner.h" 

#define CLEARSCREEN system("clear") 

#define VERSION 1.0 

#define VERSION DATE "27 March 1989" 

#define DIR "ls -al" 

#define CMD "/mit/nhdoerry/diffeg/thesis/sepsip util" 


#define DEBUG O 


#define WRITE FILE 1 
#define READ FILE O 


main(argc,argv) 

int argc; 

ehar **argv; 

{ 
FILE *in; 
etern char “device file[]; 
ern Int nbr device file[]:; 
Extern FUNCTION PTR dev fnctn(]: 
extern char *device name[]: 
ITEAN EIR *strm; 
DEVICE **dev; 
ELEMENT **e; 
QUEUE **queue; 
enar *callocl); 
char inline[MAXCHAR],infile[MAXCHAR]; 
int i,k,typ,ndev,nelm,nqueue; 
NODE **nn; 


= 394 = 





sepsip.c 


ameonnode, errflag; 
SIMULATE simulate; 
XTABLE **xtab; 
ITABLE **itab; 
Butenxtab,nitab; 
ERTNT VAR pv; 

tat sim flag; 


/* print Header */ 


۶2۰۰۰۰٢۲ ft ("\n\n WELCOME TO SEPSIPinin"); 
preunt£(" Version $5.2f : Version Date %s\n\n", VERSION, VERSION DATE); 


E initialize errflag to 0 (no errors) */ 
errflag = 0; 
/* allocate the storage for the device descriptions */ 


for (1 = ndev= 0 ; 1 < NBR_DEV FILES ; i++) 
MEY t= nbr device file[i); 


Benz (DEVICE **) calloc((unsigned) ndev, sizeof (DEVICE *)); 
Pore (i = 0 ; 1 < ndev ; itt) 


fev(i) = (DEVICE *) calloc(1, sizeof (DEVICE) ); 


/* read in the device descriptions */ 


i 


fer (i = typ 
{ 
fee (Cin 


{ 


O ; i « NBR DEV FILES ; i++) 


Fopen (dev rce Eile], TI J) == NULL) 
errflag = 1; 


printf(" *** Unable to Open Device File : %s\n",device file[i)); 


continue; 
k = load device (dev + typ , EE 71[( EE 
dev fnctn , device name , ndev); 


typ nbr device file[i]: 


/* exit program if any of the device files are not present */ 
if (errflag) 
{ 


Prince) A ZproScram Terminated\n\n\n"); 
exit (); 


/* see if there is a filename specified in argv */ 
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Margo » 1) 
( 
stropy (infile,argv[1]}):; 
att epy (inline; ”l “); 
erreat(inline,argv[l)); 
} 
else 
infile(0) = NULL; 


if (infile[O] !- NULL) 
errflag = load file(infile,&e,&nelm,dev,ndev,inline,&nn,&nnode, 
&queue, &nqueue, &simulate, &xtab, &nxtab, 
&itab,&nitab, £&pV); 
else 


errrflag = 1? 
/* should have all the devices and elements read in */ 
sim flag = 0; /* simulation has not occurred */ 


while (1) 
{ 


Brimet(!\n\n SEPSIP Commands : \n"); 


If (errflag == 0 && sim flag == ]) 
{ 
Printi? eeeContinue S$zxmulation Win"); 
} 
printf" d Display Data\n"); 
if (errflag == 0) 
{ 
۲0 0 ۲ e Edit Simulation Parameters\n"); 
} 
printf (" E Elle 6ت‎ 61605 > 
Printf(" l Load New Input File\n"); 
Printf(" Gu Cant DF 
if (errflag == 0) 
{ 
2237۲" sc Conduct Simulation in"); 
) 
printf(" ت‎ ۱36 +777 


printf(" Enter Command : "); 


gets (inline); 


Serst rip (inline) ; 
if (inline[0] -- 'c' 4£ errflag == O 4 sim flag == 1) 
run simulation(inline,e,nelm, nn,nnode, queue, nqueue, xtab,nxtab, 
itab,nitab, &pv, &€simulate, 1); 
else if (inline[0] == 'd') 


display data(inline, dev, ndev,e,nelm,nn, nnode, queue, 
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nqueue, errflag, stdout); 


else if (inline[0] == 'e' && errflag == O) 


cane osimolasete, nelm, na, nanede, simulate, &pv, inline); 


else if (inline [0] == "EI? 
file options (inline,e,nelm, nn,nnode,&queue, &ínqueue, &simulate, 
SpuEEabonssaburtab,nitab,errflag); 


else if (inline([0] -- '1') 
( 
errflag = load file(infile,&e,&nelm,dev,ndev,inline, &nn, &nnode, 
&queue, &nqueue, &simulate,&xtab,&nxtab, 
&itab, £nitab,&pv); 
sim flag = 0; /* reset the simulation flag */ 


else if (inline[0] -- 'q' || inline[0] -- 'Q'") 
ezit(): 
else if (inline[0] == 's' && errflag == 0) 


{ 
run simulation(inline,e,nelm, nn, nnode, queue, nqueue, xtab,nxtab, 
itab,nitab, &pv, &simulate, 0); 
sim flag = 1; /* set the simulation flag */ 


else if (inline[0] == 'u') 
utilities (CMD,inline); 


tod” file(iínfile, ee, nelm, dev, ndev, inline, nn,nnode, q,ng, simulate, 
xtab, nxtab, itab, nitab, pv) 

ehar *infile; 

ELEMENT ***ee; 

Bent *nelm; 

DEVICE **dev; 

Ent ndev; 

ebar *inline:; 

NODE ***nn; 

int *nnode; 

SUEUR ***q; 

Ent "ng; 

SIMULATE *simulate; 

XTABLE ***xtab; 

mat *nxtab; 

ITABLE ***itab; 

ne *nitab; 

ENT VAR *pv; 


SIREAM PTR ا‎ 
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MILE “in; 
char filename (MAXCHAR]; 
mei ,errflag, flag; 


flag = 0; 

strsplit (inline, filename,1,MAXCHAR); /* grab the filename if specified */ 
errflag = 1; /* ensure loop occurs at least once */ 

while (errflag != 0) 


{ 


es CIA eh of ہ‎ 


errflag = 0; /* reinitialize errflag */ 
if (filename[0] != NULL) 
{ 
in = fopen(filename,"r"); 
1 = (in == NULL) ? 


Jemeertename (intile, Sin, READ FILE, "SEPSIP INPUT",0) : 0; 


else 


Peeegee et Lenane (intitle, Gin, READ FILE, "SEPSIP INPUT”, 0); 


Tf (i Ie 0) 
( 
return flag; /* one if an error , zero otherwise */ 
} 
filename[0] = NULL; /* ensure that second time through, a file name 


is prompted for */ 
/* initialize starting structures */ 


strm = (STREAM PTR *) calloc(1,sizeof(STREAM PTR)); 

strm->in = in; 

Strm->last = NULL; /* indicator that this is the first stream */ 
strcpy (strm->filename, infile) ; 

Seım-eline nbr = 0; 


/* set defaults */ 
sel defaults (Simulate); 
pv->neit = NULL; 
i= load element (£strm, ee, nelm, dev, ndev, £errflag); 
if (1 != 0) /* hit EOF before all data was read in */ 
{ 
flag = errflag = 1; 


fclose(strm-»in); 


continue: 
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else 

TSS (errr lag SOO) 2.1 3: O ; 
i = load network (&strm,nn,nnode, *ee, *nelm, &errflag) ; 
if (i != 0) 


{ 
flag = errflag = 1; 
fclose(strm-»in); 
continue; 
) 
else 
flag = (errflag != 0) 21: 0; 


strcpy (inline, (*nn) [*nnode] ->name); 
/* see if elements and nodes multiply defined */ 
Sneek name (*nn, ~nnode, *ee, *nelm, &errflag) ; 


i= Meads nitial(s&serm, “ee, *nelm, “nn, *nnode, inline, éerrflag, 0); 
me (i Te 0) 
{ 
flag = errflag = 1; 
fclose(strm->in); 
continue; 
} 
else 
Elia, = (errflag != 0) ? 1 : O ; 


lso simulation(¿strm,*ee, *nelm, *nn, *nnode, q, ng, simulate, pv,terrf£lag); 
flag = (errflag !—-0) ? 1: 0; 


if (DEBUG) 
{ 
For (l1l O; 1 K6 *nq :; i++) 
printf ("elm = %d , var = %d , val = *f , time e $f\n", (*q) [i] ->elm, 
ONLI SUA (GOI )—svalue, (*q) (1 }]=>time).; 


setup simulation (*nn, *nnode, *ee, *nelm, *simulate, xtab, nxtab, 
itab, nitab, &errflag); 
Ziage— (errflag !2 0) ? 1: 0 ; 


if (DEBUG) 
{ 
pruntd(  4**A**Xdx p my 
ROr ce Ang ; itt) 
printf("elm = sa, var = $d , val = tf , time = *fin", (*q)(1]->elm, 
CS Ol Ur (GIL values (a) [1)])>>time); 


return flag; 
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get filename(filename, stream, type, string, flag) 


char *filename; /* default name of file */ 

FILE **stream; /* io stream */ 

int type; SGOT EEG <I for write */ 

enar *string; 7۴۶ String co prompt user with */ 

Ent flag; /* try to load file immediately if non zero */ 


{ 


char inline [MAXCHAR)]), direction [2) , command [15] ; 


direction[0) = (type == WRITE FILE) ? 'w' : 'r'; 
direction [l1] = NULL; 


READ FILE) strcpy (command, "Read From");‏ == کت 
else strcpy (command, "Write To");‏ 


strstrip(filename); 


while (flag == || filename [0] == NULL) 
{ 
if (filename[0}] == NULL) 
prasntt(" Enter $s file name : ",string); 
else 
Prinef(" Enter ts file name (Default ts) : ",string, filename) ; 


gets(inline); 


Berstriplinline); 


if (inline(0] == 'q' && inline(1] == NULL) 
zeturn -1; 


mt (inline{[O} == NULL) 
break; 

if (inline[0O) == '?') 
eyvstem(DIR); 

else 


{ 
strepy (filename, inline) ; 
Break; 


7* see if still NULL filename */ 


if (filename [0] == NULL) 
{ 
if (type) 
{ 
*stream = stdout; 


return 0; 


} 


else return -]: 
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/* see if write file and filename is stdout */ 


if (strcmp(filename, "stdout") == 0 && type) 
{ 
*stream = stdout; 


return 0; 


ELI. to open the file */ 


while ((*stream = fopen(filename, direction)) == NULL) 
{ 
while (1) 
{ 
prantf('" Cannot ts ts : Enter %s file name : ", 


command, filename, string); 
gets (inline); 
Serstrip(inline); 
me (inline[0)] == ” 


return -1; 


q' && inline[1) -- NULL) 


if (inlaine{O) = 


break; 


H 


NULL) 


if (inline[0] == '?")} 
system (DIR) ; 
else 
{ 
strcpy (filename, inline); 
break; 


return 0; 


۲٠٠۰۰٠۷٠۹٠ data (inline, dev, ndev, e, nelm, nn, nnode, q,nq,errflag, out) 
char "inline; 
DEVICE **dev; 
int ndev; 
ELEMENT **e; 
mit nelm; 
NODE **nn; 
int nnode; 
BUEUE **q; 
ACL nq; 

ime errtlag; 
Bobs *out: 

1 


=== 
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char line [MAXCHAR], cmd; 
aie it lag; 


strcpy (line, inline); 

lo = ’; /* strip off first character */ 
strstrip (line); 

cmd = line[0]: 


if (cmd != 'd” && cmd != "DI EE cmd != Tei EE cmd 


flag = 1; 
else 
flag = 0; 


while (1) 
{ 
at (flag) 
( 
printf("\n DISPLAY DATA\n"); 


Lë E 


Berner! d Display Device Summary\n"); 
printf(" D Display Device DataMn"); 
if (errflag == 0) 
{ 
24 ۲۲٦ e Display Element Summary\n"); 
prank 2" E Display Element Data\n"); 
printf(" n Display Network Summary\n"); 
} 
prints )۲ mouton s 
prrntf(" w Write Device Data File\n"); 
Prinef(” Enter Command : "); 


gets (line); 
strstrip(line); 


ema = nero]; 


if (cmd == 'd') 


device summary (dev,ndev,stdout); 


else if (cmd == 'D') 


display device (dev, ndev, line); 


else if (cmd == "ei EE errflag == 0) 


etemene summary (¢,nelm, out, Line); 


else if (cmd == 'E’ && errflag == 0) 


display element (e, nelm, line, q,nq); 


ese E emad <= nm 166 errt lag =— 0) 


print network (out,nn, nnode) ; 


else if (cmd == 'g') 


=A 02) = 


&& cmd 
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return? 


else if (cmd == 'w') 
dump device (dev, ndev, line) ; 


else flag = 1; 


if (flag == 0) return; 


/* use utility menu driver to execute program */ 


/* cmd is the the command name of the utility menu driving program */ 


Inline is the string input from the user */ 


utilities(cmd,inline) 
char *inline, *cmd; 


{ 


char *command,*calloc(); 
command = calloc(strlen (inline) + strlen (cmd) + 10, sizeof (char)); 


strcpy (command, cmd) ; 


Mane [0] = * '; 
Serstrip(inline) ; 
strcat (command, " "); 


strcat (command, inline); 


system (command) ; م‎ 


See 
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setup simulation.ce */ 
/* Norbert H. Doerry 


28 February 1989 
This routine sets up the state variable list for conducting the simulation. 
The variable list contains the following variables: 


ed ۱ Node Voltages | 
|x | = | Variables attached to Current Nodes.** | 


** All the variables except the first one assigned to the 


current node. 


These variables are related by a set of implicit equations of 


the form: 


E (ixi) =s [I| =--> 0 


where |I| is a vector of 'implicit variables’ That should be 


ariven to zero. 


Obviously, the order of |x| should be the same as the order of 
Pr 


At a Voltage Node, the voltage variables attached to it are all 
set equal to the Node Voltage. The Node Voltage is the variable 
that is allowed to vary. 


At a Current Node, The first variable attached to it is set equal 
to the negative of the sum of the remaining variables. If there 
are no more remaining variables, then the first variable is set 
equal to zero. The remaining variables attached to the current 
node are allowed to vary. If the Current subnode is the reference 


subnode, then the first variable is kept as a separate variable. 


Here are the definitions of the XTABLE and ITABLE structures : 


typedef struct Xtable 
{ 


int nbr; || number of variables tied to this variable 
int *e: || array of element indexes 
INCE U, || array of variable indexes 
33111:72 || array of multipliers for variables 
) 
XTABLE; 


typedef struct Itable 
d 
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int e; Il index to element array 

ine i; Meıingezstozimplijeit variable array 
) 
ITABLE; 


3 


#include <stdio.h> 
#include <math.h> 
finclude "doerry.h" 
define DEBUG O 


Setup simulation(nn,nnode, ee, nelm, simulate, xtab,nxtab,itab,nitab,errf£lag) 
NODE **nn; 
ant nnode; 
ELEMENT **ee; 
nnt nelm: 
SIMULATE simulate; 
XTABLE ***xtab; 
Ente nxztab; 
ieee ***1tab; 
fee nitab; 
ime  errflag; 
{ 

m j,k,l; 


EDEnbr x,nbr i; 
/* count the variables */ 


ne = nor i = 0; 


for (1 = 0 ; i < nnode ; 1++) 
{ 
mou = 0 7 yg <5 an [1)>=>=nbr subnode ; 3+*+) 
{ 


/* skip reference voltage subnode */ 


if (nn[(ij]->subnode[j]->ref flag == 1 && 
nn[i)-»5subnode[j]-»5type -- 0) 
continue; 


/* add extra variable for current reference subnode */ 


if (nn[i)-»5subnode[j])-»ref flag -- 1 && 
nn(ij->subnode[j)->type == 1) 
REI KT; 
/* add up the variables : one for voltage subnode 
oor connect lI) for Current subnode */ 


pos qu 
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if (nn{i]->subnode[j]->type == 0) /* voltage subnode */ 
nba x += 1; 
else /* current subnode */ 


nbsecr- nsiiessubnosdefj)]-»5nbr connect = 1; 


/* count the implicit variables */ 
memes = OQ ,; 1 < nelm ; itt) 
{ 
/* skip element if it is not used */ 
if (ee(i]->£lag == 0) continue; 
mSr 1 4 ee[i]-»con.nbr implicit; 
if (DEBUG) 
Peni e( nbr i — $d :: nbr x = *dWin",nbr i,nbr x); 
/* ensure number of implict variables and node variables are the same */ 
nf (abr i f= nbr x) 


{ 
printf(" *** SYSTEM DEFINITION ERROR :\n"); 


printf 
(| *** Unequal number of variables and implicit variables ***\n"); 
q P 
printf(" nr duaubresc-ssavyn'unbr x,nbr 7 


*ferrflag - 1; 


return; 


/* allocate arrays */ 


*xtab OTELE calec (unsigned) nbr i, sizeet(XTABLE *)); 
xitab (ITABLE **) calloc( (unsigned) nbr i, sizeof(ITABLE *)); 
oz —~ O 7 1 < nbr i ; itt) 
{ 
m xtab) [i] 
(itab) [i] 


(XTABLE *) calloc((unsigned) 1, sizeof(XTABLE)); 
(ITABLE *) calloc( (unsigned) 1, sizeof (ITABLE) ); 


Peetill the arrays */ 


for (1 = 0 ; i < nnode ; itt) 


A unniri)zonbr.subnode-; jtt) 
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/* skip reference voltage subnode */ 


if (nn[ij->subnode[3]->ref flag == 1 Eë 
nn[i]->subnode[3]->type == 0) 


continue; 
/* see if reference current subnode */ 


te lnnlı2)->subnodel 7) ref flag == 1 SE 
nn[i]->subnode[3)]->type == 1) 


TEn M Sa O g Al a no (1]1=>subnode ()]-=>nbr connect : 1++) 
{ 
Pee (OR BUG wpramcl (ok = td\n",k)? 


(*xtab) [k) ->nbr 
(*xtab) [k] ->e (ate) called (unsigned) 1,sizeof(int)); 
(*xtab) [k] ->v (into)  calloc( (unsigned) 1,sizeof(int)); 
ESE mule—-wlint. *) calloe( (unsigned) 1,sizeof (int) ); 


de 


I 


(*xtab) [k]-»e[0] ana = eubnedelgj->elm pte ]7 


(*xtab) [k]-»v [0] —-nmirl]ssubnedeljj-»var ptr[l]j:; 
(*xtab) [k]-»5mult!íOj-» 1; 
kb 


) 


continue; 


/* see if a normal voltage subnode */ 
/* ***there is some redundancy here, could save memory by 


using the pointers instead of copying */ 
if (nn[i]-»5subnode[j])-^5type == 0) /* voltage subnode */ 
{ 
if (DEBUG) printf (" k = %d\n",k); 


(*xtab)[k]|-»nbr 


il 


nn = =sübnede[ ]] -Abr connect; 


(*xtab) [k]-»e 2 (int *) calloc((uñsigned) (*ztab) [kj->nbrz, 
26ت‎ 777 
(*xtab) [k] ->v = (int *) calloc((unsigned) (*xtab) [kj->nbr, 


sizeof(int)); 
(*xtab) [k] ->mult= (int *) calloc((unsigned) (*xtab) [k]->nbr, 
sizeof (int) )?; 


tor (1,2707; l « (*xtab)[k]-»nbr ; 1++) 
{ 
(*xtab) [k]->e[l} = nn[il]-»subnode[j]-»elm ptr[1)]: 
(*xtab) [k] -»v [1] 
taD) ki mult [l] 


NN Ill Ee Klees 
ا‎ 


It 


Kelch, 
) 
else /* current subnode */ 


{ 
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Emo. ns[ij--subnode[3]-2^nbr connect 
{ 
7۶۰ (DEBUG) Mprintt ("kk = td\n", k) > 


(*xtab) [k] ->nbr = 2; 
(*xtab) [xk] ->e = (int *) calloc( (unsigned) 
(*xtab) [k]->v = (int *) calloc( (unsigned) 


(*xtab) [k]->mult= (int *) calloc( (unsigned) 


7 TH) 


2,51266 )13 (۶, 
2, 531 268000 4-۶ 
2,sjizeof(in.)); 


(*xtab) [k) ->e [0] = ans, sucnede | )]j--eim ptr[ 1] 
(*xtab) [k])->v[0) = nn[i)->subnode [j]->var_ptr [1l}; 


(*xtab) [xk] ->mult (0)]= 1; 


(*xtab) [kx] ->e [1] = nn(i]->subnode [3]->elm_ptr[(0]; 
(*xtab) [k]-»v([1] = nn[i)J->subnode [j]->var_ptr [0]; 


(*xtab) [k]->mult [1]= -1; 


I be 


/* save the implicit variable pointers */ 


BEEN = O,k = 0 =; i < nelm ; i++) 
{ 


/* skip element if it is not used */ 
if (ee(ij)->flag == 0) continue; 
۰ی‎ SO ID = ee(ije=>con.nbr implicit ; j++) 


{ 
1E (DEBUG) “printf (" k = td\n",k); 


itab) ik] >e = i; 
Eed = j; 
eseelil -con imp index[{j] = k; 
Kr: 
} 
} 
Bedi = nbr i; 
*nztab = nbr x; 


= 4108 = 





simulate.c 


M simulate.c */ 


/* Norbert H. Doerry 


14 March 1989 


Ties eroutine performs the actual simulation of the electrical system 


The procedure is : 


A. 


Initialize 
old state variables to their initial values 
set current variable initial guesses to the value specified. 
set voltage variable initial quesses to the value specified for 


the first voltage specified at a voltage subnode. 


Balance system 


Bl. Calculate the implicit variables, see if convergence is 
satisfied. (if satisfied, go to C) 
B2. Manufacture Jacobian. 
B2a. From function calls 


B2b. By varying inputs to system and allowing to change 
B3. Solve system of equations with Jacobian and Implicit variables 
B4. Apply correction to voltage and current quesses. 
Ersnt output variables 
Increment time counter (if after TMAX, then end) 
See if external input variables have changed, if so change them 
Set old state variables to present state variables 


Go to B 


NOTE: eventually may have to include tests for switches which will) 


effectively change the system. For example, for a diode, if the 
the voltage drop is less than .6 volts or the current is going int 
the wrong direction, then one of the implicit equations will drive 
one of the currents to zero. If the voltage drop is greater than 
NON volts and the current is in the right direction, then the implicit 


equation is set equal to .6 - the voltage drop. 


After a switch is thrown, the system will have to be rebalanced. If 


more than one switch can be thrown at a time is unknown. 


۶ 137 2ت 


The above statements are probably not true, By properly rotating 


the axes of the coordinate systems, I think one can properly define 
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the implicit variables such that you will get convergence. (As long 


as the characteristic is continuous) -nhd 


*** Revision a : 29 March 1989 *** 


Added fflush(out) statements so that the output file will have 


something in it if the program crashes. 


7 

#include <stdio.h> 
#include <math.h> 
#include "doerry.h" 


define BIG 1.0e+16 
#define DEBUG O 


run_simulation(line,ee,nelm,n,nnode,qq,nq,xtab,nxtab, itab,nitab, pv, 
simulate, flag) 
char *line; /* this is the command line */ 
ELEMENT **ee; 
int nelm; 
IDDE **n; 
int nnode; 
@DEUE **aq; 
Entong; 
XTABLE **xtab; 
int nxtab; 
ITABLE **itab; 
Bntenıtab: 
SIMULATE *simulate; 
PRINT_VAR pv 
Tl: _/* flag = 0, start at beginning, flag = 1 continue to new TMAX */ 
{ 
FILE *out; 
char filename [MAXCHAR]; 
mE ۰۶ 
58٠۰٦16 *jacob, *implicit, *var; 
hat *calloc(); 
double implicit error(),square error, start; 
double temp; 


if (DEBUG) 
{ 
ror l1 - O. i1 < nq - i++) 
printf ("elm = Ha , var = %d , val = 5f , time = @£\n",qq(i}->eln, 
gall])= var, galı)=->value,gaglı]l=->time); 


Jacob =zartgeunblresos callsel(mztab * nktab , sizeof (double) ); 
Enpbrcrt = (double *) calloc(nxtab , sizeof (double) ); 
var = (double *) calloc(nxtab , Slizeof (double) ); 
EE < NULE) return 1: /* out of memory error */ 
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See if want to write to a file */ 


strsplit(line, filename, 1, MAXCHAR) ; 


lif (filename [0] != 0) 
{ 
out = fopen(filename, "w") ; 
if (out == NULL) out = stdout; 
} 
else 


out = stdout; 
/* initialize the simulation to initial values if flag == O */ 
if (flag == 0) 
{ 
initialize simulation (ee, nelm,n,nnode, *simulate) ; 
simulate->time = simulate->tmin; 
٣٠٠۰ ٢ ٣ ہ۶٣)‎ the simulation */ 
for (k = O, start = simulate->time ; simulate->time <= simulate->tmax ; 
simulate->time = start + (double) (++k) * simulate-»dt) 
/* check the external input variable queue */ 
eheck queue (ee, nelm,qq,ng, simulate->time) ; 
tor = 0 7 1 <= Simulate->max iteration ; i++) 
{ 


/ calculate the implicit variables */ 


/* first time, balance the system */ 


Ee? if (k == 0) 
cale implicit (ee, nelm,0.0); 
else 
2/ calc implicit (ee, nelm, simulate->dt) ; 


7/* calculate Jacobian submatrices if calc implicit didn't 


already do so */ 


fom) = Ove <a nelm 5 j++) 
{ 


if (ee[j]->con.jacob switch == 1) 
continue; 
e E ONE =O) 


d 
temp = simulate->dt; 
simulate->dt = 0.0; 
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Ee 


elmmyacobleel)],*simulate); 
simulate->dt = temp; 
} 


else 
elm_jacob(ee[3],*simulate); 
/* find the mean square error */ 
square error = implicit_error(ee,nelm); 
/* see if have met convergence test */ 


LE (Square error € simulate->converge) 
break; 


/* make the jacobian matrix */ 
make Jacob (jacob,xtab,nxtab, itab, nitab, ee, nelm, n, nnode, *simulate); 
/* make the implicit variable vector */ 
make implicit (ee,nelm,itab,nitab,implicit); 
/* solve the system of equations */ 
if (gauss eliminate (nxtab,jacob,implicit,var) !- 0) 

( 

prinbf('" *** SINGULAR SYSTEM MATRIX at time *%f\n", 


simulate->time) ; 
return O; 


m mote that the contents of jacob and implicit were 
destroyed by gauss eliminate */ 


/* apply the corrections to the variables */ 


update variables(ee,nelm,n,nnode, xtab,nxtab, var) ; 


/* see if failed the convergence test */ 


wea >= simulate->max_iteration) 


printf(" *** CONVERGENCE TEST FAILED at time %fin",simulate->time)*; 
return Oo: 


/* print the output variables if at the proper time */ 
P P Prop 
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print output (out, ee,nelm,n,nnode,pv,simulate); 
/* set the old state variables equal to the state variable */ 


For (1 = 0 ; 1 <nelm ; 1++) 
( 
ط7٣‎ ٦ج0"‎ ۰۰۱۱۱٣66 ۲71-6665 حطص‎ States ; j++) 
2ء۲٠۹۰ 57۰ب‎ 7۳0۳563۲0۲٠٢٣۶" 5866ء 5و6 7<۶[[( ۱ ہہ‎ ۰. 


/* free the jacobian array along with the other two vectors */ 


free (Jacob): 
Eee (implicit); 


free(var); 


Sut != stdout) fclose (out); 


initialize simulation(ee, nelm,n,nnode, simulate) 
ELEMENT **ee; 
int nelm; 
BODE **n; 
int nnode; 
SIMULATE simulate; 
{ 
Enc |},k,eptr,vptr,typ; 
double node volt, current, sum; 


/* initialize state variables and external input variables */ 
for (1 = O ; 1 < nelm ; 1++) 
( 
ES OS eel) e*>con-.nbre states 2 ++) 
celi coni old state] =~ ee (1 )->con-init state(3); 
ror (j = O0; 3 € ee[i]-2con.nbr ext in ; j++) 
ee(i)]-»con.ext in[3)] = ee[i)-»con.init ext in[3); 
/* initialize jacobian matrices to zero */ 
For {37 —~ 0 ; J <eel[li)->eon.nbr implicit ; j++) 


lorik SOCK < ee[r]-2con.nbr inputs ; kt*) 


eelmine eon Jacobin i eefip-cscon.nbr implicit * k] =- 0.0; 


/* initialize the input variables */ 
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Ree (1 = 0 - 1 < nnode ; i++) 
{ 
Bra O T < nii)}e>nbr subnode ; j++) 
{ 
if (n[i)J->subnode [j])->type == 0) /* voltage law */ 
d 
eptr na) >subnode[9]1=>élm ptr(0]; 
EE Eet 
Eeer volt; 


ee[eptr]->con.in[vptr] = node_volt; 


for (kK =5 ISK < ھ٣۰٣۰ ہ6 ٭ط577-((7) 696 5 ط50‎ 6 ; k++) 
{ 


ER >subnedel 7) ->elm ptr[k); 
vptr = n[i)->subnode[j])->var_ptr[k]; 
ee[eptr]-»con.in[vptr] = node volt; 


} 
else /* current law */ 
{ 
Loro sun — Ok m[1)i=>subnede(j]=snbr connect ; k++) 
{ 

epLI 22 [72],  <supnede 7] ->elm Ber IK]; 
vptr — n(il-»subnode[j]-»var ptr[k]; 
current = ee[leptr]->con.init in[vptr]; 


ee[eptr]->con.in[vptr]) = current; 
sum += current; 
/* get pointer of first variable */ 


Ep SS nir)se-subncde[g]e»eim ptr[0]; 


vper midessubnederngli-»var ptr[0]; 

/* initialize the current for the first variable */ 

/* If the first variable is the reference current node/subnode, 
then it is an independent state variable, otherwise, set 
it equal to the negative sum of the other currents entering 
the subnode */ 


ee[leptr]->con.in[vptr) = /* see if reference node */ 
EE EE 57 
Sep). cen.init in(vpir) ! -sum; 
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E implicit (ee, nelm, dt) 
ELEMENT **ee; 

int nelm; 

double dt; 

{ 


mnt i; 


72008 


EOI (1 = O ; 1 < nelm ; 1++) 


if (ee[i]->flag == 0) 


continue; 
f = ee[i]->device->f; 


is (ee[i],dt); 


/* implicit error returns the mean square value for the implicit variable */ 


Eure implicit error(ee,nelm) 
ELEMENT **ee; 
int nelm; 
{ 
Int j,k,nbr; 


double err; 


nbr = 0; 


err = 0.0; 


lur — 0 ; 1 < nelm ; i++) 
{ 
if (ee[i}->flag == 0) 


continue; 


aK SO; E <C e€@(1l>>con.nbr implicit ; k++) 
{ 
if (fabsíee[1]->con.implicit([k]) < BIG) 
erre eelil eon.implieit[(k) * ee[li]->con.impliceit[k]; 
else 
err += BIG; 
221 7 


if (nbr !z 0) 
return (err / (double) nbr); 
else 


return 0.0; 
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make implicit (ee,nelm,itab,nitab,implicit) 
ELEMENT **ee; 

int nelm; 

ITABLE **itab; 

Entonitab; 

Perle *implicit; 

{ 


imesi,eptr,iptr; 


fona =O مم‎ i < nitab ; it+) 
{ 


eptr = itab[i)->e; 
PEE = xtab[i)-»2i; 
۷ت٦ ےت‎ — ee[eptr])-»con.implicitliptr]; 
) 
) 
/* check queue updates the ezternal inputs. It assumes that 


the queue array is in time order */ 


check queue (ee, nelm, qq, nq, time) 
ELEMENT **ee; 

int nelm; 

EUBUE **qgq; 

eae 3 

double time; 


{ 


IRE 1; 


<nq 4£ qq[il]->time <= time ; i++)‏ 1 ; 0 جح ہر ےک 


ee[aq[i]-»2elm]-2con.ext in[qq[i]-2var] - qq[il-»value; 


if (DEBUG) printf ("elm = *d , var — $d , val - $f , time = %f\n", 
galij--eim,agli)j->var,aali]->value,gg[i)->time); 


update variables(ee, nelm, n, nnode, xtab,nxtab, var) 
ELEMENT **ee; 

Bine nelm; 

NODE **n; 

int nnode; 

NABE **xtab; 

mt nxtab; 

double *var; 

{ 


dnt 1,3]; 


= 4216 = 
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) 


Update all the variables */ 


TET (i = O0 1 < nxtab ¢ it+) 


{ 


Bere) = 10 503 < Xxtab[(21]-=>nbr ; 3++) 
{ 
eel eab] eel] > eom.ıin(xtab[ı] >vlj])) == 
varii] * (double) xtab[i]->mult[j]; 


EESESc double last display; 


print output (out,ee,nelm, nn, nnode,pv, simulate) 
ELEMENT **ee; 

int nelm; 

MODE **nn; 

int nnode; 

PRINT_VAR *pv; 

SIMULATE *simulate; 

EIDE “Out >; 


{ 


int i,j,k; 


E ocn double last display; 
STINT VAR *temp; 


print out header */ 


if (simulate->time == simulate->tmin) 
{ 
ERorintf(out," time ES 
For (temp = pv >next ; temp != NULL ; temp = temp->next) 
( 
Ee een eye l E A external output or input*/ 


fprintf (out, "%-12s ",ee[temp-»e]-»name); 
else /* print node name */ 
print: (our, "?t=-1l2s ", nn[temp->e]->name); 
} 
fprintf (out, An"): 


۶۴۶1۶۶۶ mee 
for (temp = pv->next ; temp != NULL ; temp = temp->next) 
{ 
if (temp->typ == 0) /* external output */ 
Ferne rom SIS eel temp>el5>devices>ext out _name[temp->v]); 
else if (temp->typ == 1) /* external input */ 
fprinter(out, 2 +-12= Mec enero Jeyiee- ezt insnameltemp->v]);, 


else /* print node subname */ 


an = 





simulate.c 


forinti (Sut sls T nn [temp=->e]->subnode [temp->v]->name)}); 


} 
Errintf(out, "\n"); 


/* ensure first line gets printed */ 
IS play Zeimulate-2time = 2 * simulate->print dt; 


/* print out variable names on screen if not printing data 


to the screen */ 


if (out != stdout) 
{ 
for (temp = pv->next ; temp != NULL ; temp = temp->next) 


{ 


if (temp->typ == 0) /* external output*/ 
printi" %12s : %-12s\n", ee [temp->e] ->name, 
Sel EEE El device=>ex tout nameltemp=>v]); 
else if (temp->typ == 1) /* external input */ 
EE EE %12s : %-12s\n",ee[temp->e]->name, 


ee sech 
else /* print node name */ 
Printer! $12s : %-12sin",nn[temp->e]->name, 
nn [temp->e])] ->subnode [temp->v]->name) ; 


) 
Prämete"\n“); 


mE 4 
(simulate->time - last display >= 
Simulate >pIEinéE di Simulate >dtl / 10.0) 
|| simulate->time == simulate->tmin 
|| simulate->time >= simulate->tmax) 


tase display = simulate->time; 
Renee (out... $-12.58 ",simulate-»time):; 


for (temp = pv->next ; temp != NULL ; temp = temp->next) 
( 
if (temp->typ == 0) /* external output */ 
Epriner(eut, + 12.59 neeltenp E) CON ERC out [temp=>v]); 
else if (temp->typ == 1) /* external input */ 


Eerrintfieur 7+-12 59 7 ,ee[ltemp->e)->eon.ext in[temp->v]); 
else 
/* subnode voltage */ 
{ 
2 zanleemp->e]->eubnosde[temp=->v] ->elm ptr [0]; 
J = nn[temp->e]->subnode [temp->v)]->var_ptr[0]; 
Bonet outa, £ 12259. "yeel1]-=>con.in[3]); 


POLE = 
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fprintf (cut, An") 


Pe (out != stdout) 
{ 
printf("."); 
fflush(stdout); 
fflush(out); /* added as revision a */ 


print matrix(out,mat,m,n) 
EIER "out; 

double *mat; 

ine, m; 

mut n; 

d 


Eu Ae row, ) is column */ 
Brrintf (out, "\n"); 


Ber =0: i<m; i++ 
{ 
Cor SO n; j <n; Jtt) 
erinti out, 2 7.49%, mat[3,+ j*m]); 
erinti (out; An"); 
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